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High Level Robot Command Language 


1 Report Overview 

This report is the final report for the High Level Robot 
Command Language project. This report reviews the progress made 
on the project since the first bi-annual report. As such, the 
next two sections are similar to the corresponding sections 1 
the first report. The section on the research approach contains 
an update of the status of the various tasks in the project. The 
appendices contain the listing of the new software developed 
during this period. This report and the previous report should 
be used together to gain an insight into the software being 
developed in this project. 


2 Project Abstract 

The objective of this project is to develop a "system" that 
will allow a person not necessarily skilled in the art of 
programming robots to quickly and naturally create the necessary 
data and commands to enable a robot to perform a desired task. 


The system will use a menu driven graphical user interface. 
This interface will allow the user to input data and to select 
objects to be moved. There will be an imbedded expert system to 
process the knowledge about objects and the robot to determine 
how they are to be moved. There will be automatic path planning 
to avoid obstacles in the work space and to create a near optimum 
path. The system will contain the software to generate the 
required robot instructions. 


3 Research goals 

The ability of a human to take control of a robotic system 
in order to handle unforeseen changes in the robot's 
environment or scheduled tasks is essential in any use of robots 
in space. But in cases in which the work environment is known, a 
human controlling a robot's every move by tele-robotics is both 
time consuming and frustrating to the human (especially if there 
is a time delay in the loop) . 

A system is needed in which the user can give the robotic 
system commands to perform tasks but need not tell the system how 
to perform the tasks. To be useful, this system should o e 
able to plan and perform the tasks faster than the task could be 
performed by a telerobotic system. The interface between the 
user and the robot system must be natural and meaningful to the 
user . 
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In this project, a set of programs that will allow an 
unskilled user to program a robot by way of a natural 
computer interface will be developed. The user will selects 
objects to be manipulated by selecting representations of the 
objSStl on a 2-D projection of a 3-D model of the robot's work 

environment. The user may move in the work on^f the* 2-D 
changing both the viewpoint and magnification of the 

projection. 

The system will use an expert system and path planning 

programs to transform user selection of items to be moved into 

commands for the robot. The system will first determines if the 
desired task is possible given the abilities of the robot and any 
constraints on the movement of the object . If f 7 ,;! 

possible, the system will determines what movements the robot 
needs to make to perform the task. The movements will then be 
transformed into commands for the robot. The information 

defining the robot, the work environment, and how objects may be 
moved is stored in a data base accessible to the system and 
displayable to the user. 


4 Research approach 

The project has been divided in to eleven major tasks that 
will require at least four years to complete. These tasks can be 
grouped into four logical groups: user interface, path P^nning^ 
sensor input, and robot interface and control. The user 
interface group of tasks consist of four tasks: object definition 
interface task, object selection interface task, data base, * £ 
expert system. The path planning group of tasks consists of to 
major tasks: geometric path planning and dynamic Path planni g. 

The sensor input task consist of one task: robot calibratio 

work space. The robot interface and control group of tas s 
consists of four tasks: protocol task, robot motion simulation 

task, system-robot control task, and system-telerobotic control 

task. 

The following is a more detailed description of each task 
and the task's present status. Figure 1 is a data flow block 
diagram for the project. The figure shows the inter relation 
between the various software tasks. 

User interface group: 

1. Object definition interface task — This will be a menu driven 
program that will allow a user to create graphical descriptions 
of the robot's work space and the robot. The program will also 
question the user about the physical attributes of objects and 
the restrictions on how objects can be moved. 
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Status : 


Code has been written to allow the user to select 
from a menu of primitive objects and place the 
selected 3-D objects in 3-D space. Work needs to 
be done on moving the objects and joining two or 
more objects to form a new object. The code 
developed for this portion is included in an 
appendix. 

2. Object selection interface task — This will be a menu driven 
program that will allow the user to select objects to be moved 
and to select where the objects are to be placed. 

Status: This task will much of the code being developed in 

the object definition interface. 

3. Data base task -- The data base program will store and 
retrieve the graphical representations of objects. It will also 
store the knowledge about objects. There will be set of 
interface functions that will allow other programs to store and 
retrieve needed data without the need to know the structure of 
the data base. 

Status: The data base has been coded and tested. What we 

have works, but it will probably need to be 
expanded to store the expert system rules and 
facts about objects and the kinematics of the 
robot. The code for the data base is included in 
the Appendix. 

4. Expert system task — After the user selects an object and 
where the object is to be placed, the expert system will examine 
the facts about the object and its movement to determine if it is 
possible to move the object, and if so, how to move the object. 
The expert system will create a list of constraints on the motion 
and a list of data points. The path planning programs will use 
this data to plan a good path for the robot. 

Status: CLIPS has been selected as expert system shell. 

CLIPS has been ported to Silicon Graphics 
computer. The listing of the required facts and 
rules has been started. 

Path planning group: 

5. Geometric path planning task — The geometric path planning 
program will determine where in the robot's work space the robot 
may move with the object. It will use the description of the 
robot's environment to calculate the "free space" for the robot. 

Status: Literature search started. 

6. Dynamic path planning task — The dynamic path planning 
program will use the constraints on the motion of the object and 
constraints on the motion of the robots joints to plan a "good" 
path in the robot's free space . 
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Status : 


The dynamic path 
conjunction with 
Therefore, both 
search. 


planner will be developed in 
the geometric path planner, 
j^gly on the same literature 


Sensor input group: 

7. Robot calibration task — The system must be able to calibrate 
the robot to the work environment. The calibration task wil 
a television camera attached to the end-effector of the robot to 
acquire images of fiducial points on the work environment. The 
program will then calculate the relation between the robot a 

the work environment. 

Status: Literature search started. 


Robot interface and control group: 

8. Protocol task — At the present time there is no standard 
robot interface protocol. This task is to develop an efficient 
interface between a multi-tasking operating system and the PUMA 
562 robot. The PUMA uses the DDCMP protocol. 

Status: Complete, documentation written. Source code 

listing of protocol, make files, and utility 
programs included in previous report . 

9. Robot motion simulation task — Users may wish to "see" what 
the robot is going to do before actually having the robot move. 
This program will allow the user to view a simulation of the 
robots motion in moving the selected object. The user may change 
his point of view and zoom in or out. 

Status: Wire frame robot simulation working. 

10. System-robot control task — This program converts the system 

position points into actual robot commands. Since there is no 
universal robot command language, this program will be unique to 
each type of robot. The PUMA 562 uses VAL II. . 

Status: Code was written to interface the tele robotic 

interface to the robot. 


11. System-telerobot ic control task — The user may wish to take 
direct control of the robot. This program will create an 
interface on the computer that will allow the us ® r to JiJ® 

speed and other limits on the movement of the robot. Then tne 
user could move the robot by using a mouse. The user would use 
video feedback to determine the relation between the robot and 


the work space. 

Status: Two programs are being 

in robot joint space, 
co-ordinate space. 


written: first moves robot 

second moves robot in world 
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5 Anticipated results 


This project will create a complete high level robotic 
programming system in which the user will "program 1 t e 0 ^ 

simple selections on a graphical display. This project ha 
divided into tasks with well defined interfaces . neach task, 
the programs may be modified, changed, or P. .. . 

effecting the operation of the other tasks. This will cr 
environment in which research may be performed in specific areas 
and the results evaluated in a total system* 


6 Publications and presentations resulting from this work 

Publications 


"A Graphical, Rule Based Robotic Interface System, 1 

Fourth Conference on Art i f icia 1 Int^iliq^nQ? . 

Applications (AISA) , James W. McKee and John 
November 15-16, 1988, Huntsville, Alabama. 


To Appear In: 
for Space 
Wolfsberger, 


"High Level Intelligent Control of 
Appear In: Conference on Automation.- 
Military Applications , James W. McKee 
21-23, 1988, Huntsville. 


Telerobotic Systems," To 
and Robotics for Space and 
and John Wolfsberger, June 


Presentations 

"A Graphical, Rule Based Robotic Interface System," presented at 
the Fourth Conference on Artificial Intelligence for Space 
Applications (AISA), November 1988, Huntsville, Alabama. 

"High Level Intelligent Control of Telerobotic Systems, 
Conference on Automation and Robotics for Space and Military 
Applications, June 1988, Huntsville Alabama. 
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Figure 1 Data Flow Block Diagram 

















Filename: defs.h 


Appendix A User Interface Software 

Appendix A.l Include files 

************************ 




By: Tim Thompson 

Purpose: 


♦include "gl.h" 

♦include "stdio.h" 
♦include "device. h" 
♦include "math.h" 

/* used by generator. c 
♦define span 64 
♦define MaxPolys 128 


♦define red 8 
♦define green 72 
♦define yellow 136 
♦define blue 200 
♦define magenta 264 
♦define cyan 328 
♦define white 392 


/* used in windows. c 
♦define WholeScreen 0 
♦define FrontView 1 
♦define SideView 2 
♦define TopView 3 
♦define TextWindow 4 
♦define Windows 5 


/* used in 
popmenus . c * / 

♦define POPCOLORl 512 
♦define P0PC0L0R2 1024 
♦define P0PC0L0R3 1536 
♦define POPCOLOR4 2048 
♦define POPCOLOR5 2560 
♦define ENDCOLOR 3072 
#def ine MASKVALUE POPCOLORl 


POPCOLOR2 


POPCOLOR3 


POPCOLOR4 | POPCOLOR 


♦define POP UP BACKGROUND 
♦define POPUPTEXT 


POPCOLORl 

POPCOLOR2 
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fdefine POPUPHIGHLIGHT POPCOLOR3 
♦define POPUPACTIVE POPCOLOR4 

♦define POPUPSHADOW POPCOLOR5 

♦define CROSSCOLOR POPCOLOR2 

/* used by gprimitives . c and vectors. c */ 
♦define PI M_PI 

/* used by vectors. c */ 

♦define VectStackSize MATRIXSTACKDEPTH 
♦define convert 1.7453293e-3 

/* used by vectors. c */ 

typedef struct { 
float i; 
float j; 
float k; 

} vector; 

/* used by popmenus.c */ 

struct popupentry { 
short type; 
char *text; 

Boolean flag; 

} ; 


struct menutype { 
int x; 
int y; 

char *title; 

struct popupentry *list; 

} ; 


struct menulist { 

struct menutype *menu; 
struct menulist *next; 
struct menulist *last; 

} ; 
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Filename: kindefs.h 


By: Tim Thompson 

Purpose: This file defines the structures used to represent kinematic 

objects and transformations. 

An object is (currently) made up of the following parts: 

1 . A name . 

2. A flag indicating if the object has been modified or not. 

3. A type, ('u' =undefined, 'o'=object, 'r'=rigid body) 

4. A sub-component: 

a. object 
OR 

b. rigid body. 

5. A scaling factor for all sub-components. 

6. A link to the next object. 

7. A link to parent object. 


A transformation is made up of the following parts: 

1. A type, ('t' translation, ' r' =rotation, ' u' =undef ined) 

2. An axis, ('x', 'y' , ' z' , or 'a' for all axes) 

3 . An amount : 

a. rotation angle 
OR 

b. translation distance 
OR 

c. rotation angles (around all three axes) 

OR 

d. translation distances (along all three axes) 

4. A link to the next transform for the object. 






* ★ ★ j 


struct xform { 

char type, axis; 
union { 

short angle; 
float dist; 
struct { 
short x; 
short y; 
short z; 

} rot; 
struct { 
float x; 
float y; 
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float z; 

} trans; 

} amt ; 

struct xform *next; 


struct kinobject { 
char name [20]; 

/* int modified; */ /* Treated as Boolean */ 

char type; 
union { 

OBJECT *rbody; 

struct kinobject *subobj; 

} obtype; 

float scale; 

struct xform *xform; 

struct kinobject *nextkobj; 

/* struct kinobject *parent; */ 

} ; 


typedef struct xform XFORM; 
typedef struct kinobject KOBJ; 

KOBJ *NewKOb j () ; 

XFORM *NewXform () ; 
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/************************************************************************ 
Filename: obj.h 

Written by: Allan Rideout 

Modified by: Timothy A. Thompson 

Purpose: This file contains all the structures used to implement the 

winged edge database. 

An object is defined in terms of a list of faces. 

A face is defined in terms of a list of its bounding edges. 

A face also has a pointer to an attribute structure. This 
attribute structure contains thej color of the face, a 
vector normal to the face, and an integer flag which 
is reserved for future use. 

A bounding edge is defined simply as an edge. 

An edge is defined as two vertices. An edge also contains 
pointers back to the two faces of which is is the 
intersection . 

A vertex is defined by its x, y, and z coordinates (Local 
coordinate system) . A vertex also contains pointer to 
a list of all its incident edges. 

************************************************************************/ 

/* obj.h 01.11.89*/ 

♦include "string.h" 

struct face{ struct face *nextfce; 

struct bedge *bedg; 
struct attribute *attr; 

} ; 

struct bedge { struct bedge *nextbedg; 

struct edge *edg; 

} ; 

struct edge { struct face *fcel,*fce2; 

struct vertex *vtxl,*vtx2; 

} ,* 

struct vertex { float x,y,z; 

struct iedge *iedg; 

}; 

struct iedge { struct iedge *nextiedg; 

struct edge *edg; 

} ; 

struct corner { struct corner *nextcorn; 

struct vertex *vtx; 

} ; 

struct object { int name; 

struct object *nextobj; 
struct face *fce; 
struct corner *corn, *rcorn; 

} ; 
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struct 


attribute { int coir; 

vector norm; 
int flags; 


typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 


struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 


face FACE; 
bedge BEDGE; 
edge EDGE; 
vertex VERTEX; 
iedge IEDGE; 
corner CORNER; 
object OBJECT; 
attribute ATTRIBUTE 







Filename: dbdefs.h 




By: Tim Thompson 

Purpose: This file contains definitions which are needed so that a 

module can use the routines in "interface . c" which are used 
to interact with the rigid body (winged edge) database. 

It also contains certain other definitions needed by modules 
using the database. 


************* 




♦include "obj.h" 

OBJECT *NewRb ( ) ; 

FACE *FirstFace (), *NextFace (), *SameFace (); 
CORNER *NewCorn (); 

VERTEX *NewVertex () , *GetVert () ; 

ATTRIBUTE *NewAttribute () ; 

extern FACE *fce; 
extern BEDGE *bedg; 
extern EDGE *edg; 
extern VERTEX *vtx; 
extern IEDGE *iedg; 
extern CORNER *corn; 
extern OBJECT *obj; 
extern ATTRIBUTE *attr; 


♦define sfce 
♦define sbedg 
♦define sedg 
♦define svtx 
♦define siedg 
♦define scorn 
♦define sobj 
♦define sattr 


sizeof (FACE) 
sizeof (BEDGE) 
sizeof (EDGE) 
sizeof (VERTEX) 
sizeof (IEDGE) 
sizeof (CORNER) 
sizeof (OBJECT) 
sizeof (ATTRIBUTE) 
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/**********************************/ 

★ / 

/* menudefs.h > 

/**********************************/ 

# define BLANK -1 
♦define DONE 100 

♦define XAXIS 1 
♦define YAXIS 2 
♦define ZAXIS 3 
♦define ALLTHREE 4 
♦define SAME 5 
♦define SELECT 6 
♦define CSHELL 7 
♦define DUMBCHOICE 8 

♦define SIM 1 
♦define ODUI 2 
♦define EXITPROGRAM 3 

♦define WORLD 1 
♦define ADD 2 
♦define DELETE 3 
♦define SAVESCENE 4 
♦define LOADSCENE 5 
♦define HACK 6 

♦define CYLINDER 1 

♦define PIPE 2 

♦define SPHERE 3 

♦define CONE 4 

♦define PARALLELEPIPED 5 

♦define BOX 6 

♦define CUBE 7 

♦define ROTATE 1 
♦define TRANSLATE 2 
♦define ZOOM 3 
♦define CLIP 4 

♦define DEFAULTCOLOR 1 
♦define SETDEFCOLOR 2 
♦define REDCOLOR red 
♦define GREENCOLOR green 
♦define YELLOWCOLOR yellow 
♦define BLUECOLOR blue 
♦define MAGENTACOLOR magenta 
♦define CYANCOLOR cyan 
♦define WHITECOLOR white 

struct popupentry superselection [ ] = { 

{SIM, "Simulate", TRUE}, 
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{ ODUI , "RunODUI", TRUE}, 
{EXITPROGRAM, "Exit Program", TRUE}, 
{0, 0, TRUE} 


struct popupentry menulselect [ } = { 
{WORLD, "Change World View", TRUE}, 
{ADD, "Add an Object", TRUE}, 
{DELETE, "Delete an Object", FALSE}, 
{SAVESCENE, "Save Scene", TRUE}, 
{LOADSCENE, "Load Scene", TRUE}, 
{HACK, "Hack it", TRUE}, 

{BLANK, ” ", TRUE}, 

{CSHELL, "System (C-Shell) ", TRUE}, 
{BLANK, " ", TRUE}, 

{DONE, "Previous Menu", TRUE}, 

{0, 0, TRUE} 


struct popupentry chgworldselect [ ] = { 
{ROTATE, "Rotate View", FALSE}, 
{TRANSLATE, "Translate", FALSE}, 
{ZOOM, "Zoom / Unzoom", FALSE}, 
{CLIP, "Set Clipping Planes", TRUE}, 
{BLANK, " ", TRUE}, 

{DONE, "Previous Menu", TRUE}, 

{0, 0, TRUE} 


struct popupentry addob jselect [ ] = { 
{CYLINDER, "Cylinder", TRUE}, 

{PIPE, "Pipe", TRUE}, 

{SPHERE, "Sphere", TRUE}, 

{CONE, "Cone", TRUE}, 

{CUBE, "Cube", TRUE}, 

{BOX, "Box", TRUE}, 

{PARALLELEPIPED, "Parallelepiped", TRUE}, 
{BLANK, " ", TRUE}, ' 

{DONE, "Previous Menu", TRUE}, 

{0, 0, TRUE} 


struct popupentry colorselect [ ] = { 
{DEFAULTCOLOR, "Default Color", TRUE} 
{BLANK, " ", TRUE}, ' 

{REDCOLOR, "Red", TRUE}, 

{GREENCOLOR, "Green", TRUE}, 

{ YELLOWCOLOR, "Yellow", TRUE} 
{BLUECOLOR, "Blue", TRUE}, ’ 
{MAGENTACOLOR, "Magenta", TRUE} 
{CYANCOLOR, "Cyan", TRUE}, 

{WHITECOLOR, "White", TRUE}, 


15 




{BLANK, " ", TRUE}, 

(SETDEFCOLOR, "Set Default Color", 
{BLANK, " ", TRUE}, 

{DONE, "Previous Menu", TRUE}, 

{0, 0, TRUE} 


struct popupentry axisselection [ ] = 
{XAXIS, "About X Axis", TRUE}, 

{ YAXIS, "About Y Axis", TRUE}, 

{ ZAXIS , "About Z Axis", TRUE}, 

{ALLTHREE, "About all Axes", TRUE} 
{SAME, "No change", TRUE}, 

{BLANK, " ", TRUE}, 

{ SELECT, "Select Point", TRUE}, 
{CSHELL, "System (C-Shell)", TRUE} 
{BLANK, " ", TRUE}, 

{ DUMBCHOICE , "Next Menu", TRUE}, 
{DONE, "Previous Menu", TRUE}, 

{0, 0, TRUE} 

} ; 


struct popupentry dummychoices [ ] - { 
{1, "Go To Next Menu", TRUE}, 
{BLANK, " ", TRUE}, 

{2, "Choice 2", TRUE}, 

{3, "Choice 3", TRUE}, 

{4, "Choice 4", TRUE}, 

{5, "Choice 5", TRUE}, 

{6, "Choice 6", TRUE}, 

{7, "Choice 7", TRUE}, 

{8, "Choice 8", TRUE}, 

{9, "Choice 9", TRUE}, 

{10, "Choice 10", TRUE}, 

{0, 0,- TRUE} 
in- 


struct popupentry dummychoices 10 [ ] 


{1/ 

"Go To Next 

Menu", 

{BLANK, " ", 

TRUE } , 

{2, 

"Choice 

2", 

TRUE } , 

{3, 

"Choice 

3", 

TRUE } , 

{4, 

"Choice 

4", 

TRUE } , 

{5, 

"Choice 

5", 

TRUE } , 

{6, 

"Choice 

6", 

TRUE } , 

{7, 

"Choice 

7", 

TRUE } , 

{8, 

"Choice 

8", 

TRUE } , 

{9, 

"Choice 

9", 

TRUE } , 

{10, 

"Choice 

! 10 

" , TRUE 

(0, 

0 , TRUE } 




} ; 


TRUE } , 
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Appendix A. 2 Object Definition User Interface 

/************************************************************************ 
Filename: odui.c 

by Timothy A. Thompson 

OBJECT DEFINITION USER INTERFACE (ODUI) 
************************************************************************/ 


♦include "defs.h" 
♦include "dbdefs.h" 
♦include "menudefs .h" 
♦include "generator .h" 
♦include "kindefs.h" 


♦define POLYS 16 


struct menutype supermenu, menul, chgworldmenu, addobjmenu, 
struct menutype mainmenu, dumbmenul, dumbmenu2, dumbmenu3, 

dumbmenuS, dunibnienu6, duitibmenu/, 
dumbmenu9, dumbmenul 0; 


colormenu; 

dumbmenu4, 

dumbmenu8, 


vector view; 
KOBJ * Scene; 


main - main program routine 


main () 

{ 

int i, option; 

InitializeMenus () ; 

InitializeWindowLocs () ; 

InitOrtho (-500.0, 500.0, -500.0, 500.0, 500.0, 
InitDataBase () ; 


-500.0) ; 


ginit () ; 
gconfig () ; 

cur so f f ( ) ; 

qdevice (LEFTMOUSE) ; 
qdevice (MIDDLEMOUSE) ; 
qdevice (RIGHTMOUSE) ; 

BuildColorMap (); 
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PopupColorlnit 0 ; 

setdepth (0x000, OxFFF) , 
zbuf fer (TRUE) ; 
zclear 0 ; 

SetWind.ow (WholeScreen) ; 
color (BLUE) ; 
clear () ; 

InitTextWindow () ; 

for (i=FrontView; KTextWindow; i++) 
BorderWindow (i) ; 


view . i = 0.0; 
view.j = 0.0; 
view.k = 1.0; 

Scene = NewKObj ("scene ) , 


{ 


pushmenu (& supermenu) , 
openmenus 0 ; 

while n (option ! = EXITPROGRAM) 
option = checkmenuO; 
closemenus 0 ; 
switch (option) { 

case SIM: Tumble 0 ; b ^ ak ' _ k . 
case ODUI: OduiRoutine ( ) ; break, 
case EXITPROGRAM: break; 
default: break; 


} 

openmenus () ; 

closemenus () ; 
popmenu () ; 


unqdevice (RIGHTMOUSE) ; 
unqdevice (MIDDLEMOUSE) ; 
unqdevice (LEFTMOUSE) ; 


gexit ( ) ; 


system 
print f 


("gclear" ) ; 

("ODUI terminated. \n" ) ; 


} 

/******************** 
InitializeMenus - 


************ 

Initializes 


****************** 
the locations and 


********************** 
titles of all menus used 


by ODUI . 
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InitializeMenus () *************************************/ 

{ 

supermenu . x = 0; 
supermenu. y = 757; 
supermenu. title = "SUPER menu" • 
supermenu. list = superselection; 

menul.x = 200; 
menul.y = 757; 
menul. title = "MAIN MENU"; 
menul.list = menulselect; 

addobjmenu.x = 400; 
addobjmenu.y = 757; 
addobjmenu.titie ='»add an OBJECT"- 
addobjmenu .list = addob jselect ; 

chgworldmenu . x = 400; 
chgworldmenu . y = 757; 

nh^ W ° r J‘?” enU ' title “'"CHANGE WORLD MENU" • 
chgworldmenu .list - chgworldselect; ' 

colormenu.x = 0 ; 
colormenu.y = 500; 

colormenu.titie = "COLOR SELECTION MENU" • 
colormenu .list = colorselect; ' 

mainmenu.x = 0 ; 
mainmenu.y = 757; 

mainmenu. title = "SIMULATION MENU" • 
mainmenu.list = axisselection; 

dumbmenul.x = 200; 
dumbmenul.y = 757; 
dumbmenul .title =' "SAMPLE MENU 1"- 
umbmenul . list = dummychoices; 

dumbmenu2.x = 400; 
dumbmenu2.y = 757; 
dumbmenu2 .title = "SAMPLE MENU 2"- 
dumbmenu2 . list = dummychoices; 

dumbmenu3.x =600; 
dumbmenu3.y = 757- 
dumbmenu3 .title = "SAMPLE MENU 3"- 
umbmenu3 . list = dummychoices ; 

dumbmenu4.x = 800; 
dumbmenu4.y = 757; 
dumbmenu4 .title = "SAMPLE MENU 4"- 
dumbmenu4 .list = dummychoices; 
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dumbmenu5 . x = 0 ; 

dumbmenu5.y = 500; m _„ T . r c» . 

dumbmenu5. title = "SAMPLE MENU 5 , 
dumbmenu5 .list = dummychoices; 

dumbmenu6.x = 200; 

dumbmenu6.y = 500; c«. 

dumbmenu6. title = "SAMPLE MENU 6 , 
dumbmenu 6 . 1 i s t = dummy choice s; 

dumbmenu7 . x = 400; 
dumbmenu7.y =500; 

dumbmenu7. title = "SAMPLE MENU 7 , 

dumbmenu7 .list = dummychoices; 

dumbmenu8.x = 600; 

dumbmenu 8. y = 500; Q „. 

dumbmenu 8. title = "SAMPLE MENU 8 , 
dumbmenu8 . list = dummychoices; 

dumbmenu9.x = 800; 

dumbmenu 9. y = 500; an. 

dumbmenu9. title = "SAMPLE MENU 9 , 
dumbmenu 9 .list = dummychoices; 

dumbmenu 10.x = 0 ; 

dumbmenulO.y = 300; TTT in „ . 

dumbmenulO. title = "SAMPLE MENU 10 , 

dumbmenu 10. list = dummychoiceslO , 


It was written for testing and 


in the Super Menu, 
demonstration^^^ Thls routine wlll be deleted before this program is 

completed. 

Tumble () 

{ int i, command, oldcommand, tmpcom, xx, yy, zz; dummy; 

int mx, my, mx2, my2, w1 ^' yyl , zzi, xx2, yy2, zz2; 

float xl, yl, zlf x2, y2, zz, xxi, yy / 

Device button, button2; 

IS^-Sbjerti, -Object2, -Objects, -0bject4, -Objects, -obj; 

XFOBM -xfm, -xfml, *xfm2, *xfm3, *xfm4, xfmS, 

OBJECT *rbody; 
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XX = yy = 22 = 0; 
command = XAXIS; 
qreset (); 


Done = FALSE; 


Objectl = NewKObj ("objectl"); 
xfml = NewXform (); 
SetXformRotMulti (xfml, 0, 0, 0) • 
AddXform (Objectl, xfml); 

Ob ject2 = NewKObj ("object2") ; 
xfm = NewXform () ; 

SetXformTrans (xfm, ' x' , -250 0) • 
AddXform (Object2, xfm); ' 

xfm2 = NewXform (); 
SetXformRotMulti (xfm 2 , 0, 0 , 0 ) • 
AddXform (Object2, xfm2) ; 


Object 3 = NewKObj 
xfm = NewXform () , 
SetXformTrans (xfm, 


("object3") ; 
z', -250.0) 


xfm) 


AddXform (Object 3, 
xfm3 = NewXform () ; 
SetXformRotMulti (xfm3, 0 , 
AddXform (Object3, xfm3) ; 


0 , 0 ) 


Ob ject4 = NewKObj ("object 4") • 
xfm = NewXform () ; 

SetXformTrans (xfm, ' x' , 250.0)- 
AddXform (Object4, xfm); 
xfm4 = . NewXform () ; 
SetXformRotMulti (xfm4, 0 , 0 , 0 ) • 
AddXform (Object4, xfm4); 


Ob ject5 = NewKObj 
xfm = NewXform () ; 
SetXformTransMulti 
AddXform (Object 5, 
xfm5 = NewXform (); 
SetXformRotMulti (xfm5, 0, 
AddXform (Object5, xfm5) ; 


(" object5") ; 

(xfm, -100.0, 
xfm) ; 


0 , 0 ) 


0.0, 300.0) 


AddKObj (Scene, Objectl); 

AddKObj (Scene, Object2) ; 

AddKObj (Scene, Object3) ; 

AddKObj (Scene, Object4); 

AddKObj (Scene, Object5) ; 

obj = NewKObj ("pipel") ; 

rbody = GenPipe (magenta, POLYS, 250.0, 200.0 


/ 200 . 0 , 0 ); 
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SetKObj_Rbody (obj, rbody); 
AddKObj (Objectl, obj); 


obj = NewKObj ("cylinderl" ) ; 
rbody = GenCylinder (cyan, POLYS, 
SetKObj_Rbody (obj, rbody); 
AddKObj (Objectl, obj); 
xfm = NewXform () ; 

SetXformTrans (xfm, 'y', -50.0); 
AddXform (obj, xfm); 


100 . 0 , 


300.0, 0); 


obj = NewKObj ("spherel") ; 

rbody = GenSphere (cyan, POLYS, 100.0, 

SetKOb j_Rbody (obj, rbody); 

AddKObj (Objectl, obj); 
xfm = NewXform () ; 

SetXformTrans (xfm, 'y', -50.0); 
AddXform (obj, xfm); 


0 ) ; 


obj = NewKObj ("sphere2" ) ; 

rbody = GenSphere (cyan, POLYS, 100.0, 0) ; 
SetKOb j_Rbody (obj, rbody); 

AddKObj (Objectl, obj); 
xfm = NewXform () ; 

SetXformTrans (xfm, 'y ' , 250.0); 

AddXform (obj, xfm); 


obj = NewKObj ("sphere3") ; 

rbody = GenSphere (yellow, POLYS, 75.0, 

SetKOb j_Rbody (obj, rbody); 

AddKObj (Ob ject2, obj); 


0 ) ; 


obj = NewKObj ("conel") ; 

rbody = GenCone (green, POLYS, 100.0, 300.0, 0) ; 
SetKOb j_Rbody (obj, rbody); 

AddKObj (Ob ject3, obj) ; 


obj = NewKObj ( "parallelepipedl " ) 
rbody = GenParallelepiped (white, 
SetKOb j_Rbody (obj, rbody); 
AddKObj (Ob ject4, obj) ; 


150.0, 75.0, 50.0, 


45.0 


obj = NewKObj ("boxl"); 

rbody = GenBox (blue, 200.0, 100.0, 50.0, 0) ; 
SetKOb j_Rbody (obj, rbody); 

AddKObj (Objects, obj) ; 


obj = NewKObj ("cubel"); 
rbody — GenCube (red, 100.0, 0) ; 
SetKOb j_Rbody (obj, rbody); 
AddKObj (Ob ject5, obj) ; 
xfm = NewXform () ; 


, 30.0, 0); 
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SetXformTransMult i (xfm, 50.0, 50.0, 0.0); 
AddXform (obj, xfm) ; 

obj = NewKObj ( "box2" ) ; 

rbody = GenBox (blue, 200.0, 100.0, 50.0, 0); 
SetKObj_Rbody (obj, rbody); 

AddKObj (Ob ject5, obj); 
xfm = NewXform (); 

SetXformTrans (xfm, ' y' , 150.0); 

AddXform (obj, xfm); 

while (IDone) { 

Draw3WinScene (Scene, view) ; 
print f ( " %d %d %d \n",xx, yy, zz) ; 
if (qtest () ) 

if (qread (Sdummy) == RIGHTMOUSE) { 
oldcommand = command; 
pushmenu (&mainmenu) ; 
openmenus ( ) ; 
command = DUMBCHOICE; 

while ( (command == DUMBCHOICE) | | (command == 
command = checkmenu ( ) ; 
if (command == DUMBCHOICE) { 
pushmenu (&dumbmenul) ; 
tmpcom = checkmenu ( ) ; 
while (tmpcom == 1) { 

pushmenu (&dumbmenu2) ; 
tmpcom = checkmenu () ; 
while (tmpcom == 1) { 

pushmenu (&dumbmenu3) ; 
tmpcom = checkmenu (); 
while (tmpcom == 1) { 

pushmenu (&dumbmenu4) ; 
tmpcom = checkmenu (); 
while (tmpcom == 1) { 

pushmenu (&dumbmenu5) ; 
tmpcom = checkmenu (); 
while (tmpcom == 1) { 

pushmenu (&dumbmenu6) ; 
tmpcom = checkmenu ( ) ; 
while (tmpcom == 1) { 

pushmenu (&dumbmenu7) ; 
tmpcom = checkmenu () ; 
while (tmpcom == 1) { 

pushmenu (&dumbmenu8) ; 
tmpcom = checkmenu (); 
while (tmpcom == 1) { 

pushmenu (&dumbmenu9) ; 
tmpcom = checkmenu (); 
while (tmpcom == 1) { 

pushmenu (sdumbmenulO) ; 
tmpcom = checkmenu ( ) ; 


SELECT) ) { 
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&zz2) ; 


popmenu ( ) ; 

tmpcom = checkmenu () ; 

) 

popmenu () ; 

tmpcom = checkmenu 0 ; 

} 

popmenu 0 ; 

tmpcom = checkmenu () ; 

} 

popmenu () ; 

tmpcom = checkmenu () ; 

} 

popmenu 0 ; 

tmpcom = checkmenu () ; 

} 

popmenu () ; 

tmpcom = checkmenu 0 ; 

} 

popmenu ( ) ; 

tmpcom = checkmenu (); 

} 

popmenu () ; 

tmpcom = checkmenu () ; 


} 

popmenu ( ) ; 

tmpcom = checkmenu () ; 


popmenu (); /* 1 */ 

if (command == SELECT) { 
closemenus (); 
curson () ; 

button — MIDDLEMOUSE; 
button2 = LEFTMOUSE; 


&my) ) { 


&x2, 


my) ) ; 
&y2 , &z2) 


TurnOnCross () ; 

while (GetLineCross (button, &mx, 

print f ("window = %d\n",wind = WhichWmdow (mx, 

FindLine (mx, my, wind, &xl, &yl, &zl, 
printf ("pi - %f %f %f\n",xl,yl,zl) ; 
print f ( "p2 - %f %f %f\n\n", x2, y2, z2) ; 
if (GetPointCross (button2, mx, my, 
printf ("window = %d\n", wind2 
FindLine (mx2, my2, wind2, &xxl, &yyl, &zzl , &xx , 


&mx2, &my2)) { 

= WhichWindow (mx2, my2) ) 


printf ("pl — %f %f %f\n" , xxl, yyl/ 
printf ( "p2 ~ %f %f\n\n",xx2, yy2 
printf ("Common Point - "); 
if (xl == x2 && yl == y2) { 

printf ("%f %f %f\n", xl, yl, zzl) 


zzl) ; 

, zz2 ) 


if (xl == x2 && zl == z2) { 

printf ("%f %f %f\n", xl, yyl, 


zl) ; 


&yy2, 
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} 


} 

if (yl == y2 && zl == z2 ) { 

} printf ("%f %f %f\n", xxl , yl f zi); 

} 

} 


cursoff (); 

TurnOf fCross () ; 
openmenus (); 
command = SAME; 
while ( ! qtest ( ) ) ; 
qreset (); 

} 

if (command == CSHELL) { 
closemenus (); 

CShell (); 


openmenus () ; 
command = SAME; 

} 

} 

closemenus () ; 
popmenu ( ) ; 
if (command == SAME) 
if (command == DONE) 


command - oldcommand; 
Done = TRUE; 


switch (command) { 
case XAXIS ; 
xx += 10; 
xfml ->amt . rot . x 
xfm2->amt . rot . x 
xfm3->amt . rot . x 
xfm4->amt .rot .x 
xfm5->amt . rot . x 
break; 
case YAXIS: 

yy += 10; 

xfml - >amt . rot . y 
xfm2->amt . rot . y 
xfm3->amt . rot . y 
xfm4->amt . rot . y 
xfm5->amt . rot . y 
break; 
case 2 AX IS : 
zz += 10; 
xfml->amt . rot . z 
xfm2->amt . rot . z 
xfm3->amt . rot . z 
xfm4 — >amt . rot . z 
xfm5->amt . rot . z 
break; 

case ALLTHREE: 


xx; 
xx; 
xx; 
xx; 
xx ; 


yy; 

yy; 

yy; 

yy; 

yy; 


zz; 

zz; 

zz; 

zz; 

zz; 
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xx += 10; 



yy += 10; 



zz += 10; 



xfml->amt . rot .x 

= 

xx; 

xfm 2 ->amt .rot .x 


xx; 

xfm3->amt .rot.x 

= 

xx; 

xfm4->amt . rot . x 

— 

xx; 

xfm5->amt .rot .x 

= 

xx; 

xfml->amt .rot .y 


yy; 

xfm2->amt .rot .y 

= 

yy; 

xfm3->amt .rot .y 

= 

yy; 

xfm4->amt .rot .y 

= 

yy; 

xfm5->amt .rot .y 

= 

yy; 

xfml->amt . rot . z 

= 

zz; 

xfm2->amt . rot . z 

= 

N 

N 

xfm3->amt . rot . z 

= 

zz; 

xfm4->amt . rot . z 

= 

zz; 

xfm5->amt . rot . z 

sz 

zz; 

break; 




default : 
break; 


} 


} 


} 

/*************** 

Draw3WinScene 


* 


************************* 
Given a scene or object 
objects in the scene or 
projection windows. 


******************************* 
this routine draws all the 
object in each of the three 


Arguments : 
scene 
v — 


(KOBJ 

(vector) 


) pointer to the scene to draw, 
ieuina vector. (Normalized vector pointing 


from the 


origin of the 
the screen" . 


world coordinate system in a direction 
This vector is used to determine 


"out of 
the light 


source . 

**************************** 






Draw3WinScene (scene, v) 
KOBJ * scene; 
vector v; 


SetWindow (FrontView) ; 
DrawObj (scene, v) ; 


SetWindow (SideView) ; 
PushAll (v) ; 

RotateAll (&v, -900, ' y' ) ; 
DrawObj (scene, v) ; 

PopAll (&v) ; 
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SetWindow (TopView) ; 
PushAll (v) ; 

Rot ate All (&v, 900, 'x'); 
DrawObj (scene, v) ; 

PopAll (&v) ; 


} 

/ 


************************* 
DrawObj - Given a scene 


********************************************* 
, this routine draw it in the current window. 


* * 


Arguments : 
scene 
v -- 


(KOBJ *) pointer to the scene or object to be displayed^ 
(vector) normalized viewing vector. (See descripion of "v" 
in "Draw3WinScene" . 






DrawObj (scene, v) 
KOBJ * scene; 
vector v; 

{ 

XFORM *xfrm; 


if (scene) { 

PushAll (v) ; 

scale (scene->scale, scene->scale, scene->scale) ; 
xfrm = scene->xform; 
if (xfrm) { 

while (xfrm) { 

switch (xfrm->type) { 
case ' t ' : 

switch (xfrm->axis) { 
case ' a' : 

translate (xf rm->amt . trans . x, xf rm->amt . t rans . y , 

xfrm->amt . trans . z) 


break; 
case ' x' ; 

translate (xfrm->amt . dist, 0.0, 0.0); 
break; 
case ' y' : 

translate (0.0, xfrm->amt .dist, 0.0); 
break; 
case ' z ' ; 

translate (0.0, 0.0, xfrm->amt .dist) ; 
break; 
default : 
break; 

} 

break; 
case ' r' : 

if (xfrm->axis == 'a') 

RotateMultiEnv (&v, xfrm->amt . rot . x, xf rm->amt . rot . y, 
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xf rm->amt . rot . z ) ; 

else 

RotateAll 
break; 
default : 
break; 


(&v, xfrm->amt .angle, xfrm->axis) ; 


xfrm = xfrm->next; 


} 

if (scene->type == ' r' ) 

DrawRbody (scene->obtype . rbody, ), 
if (scene->type == 'o') 

DrawObj (scene->obtype.subob:, v) ; 

PopAll (&v) ; 

DrawObj (scene->nextkob:, v) ; 










DrawRbody - Draws a n 


gid body in the current window. 


Arguments : 


rbody — (OBJECT *) pointer to the rigid body to be drawn. 
v — (vector) normalized viewing vector. 

**•***************************/ 








DrawRbody (rbody, v) 
OBJECT * rbody; 
vector v; 


face *piy; 

float i, j, k, x, y, z; 
int coir, flags; 
float dp; 

VERTEX * valid; 


if (rbody) { 

ply = FirstFace (rbody) ; 

Wh GetAt?ribute (ply, si, ‘«lr, sflags); 

dp = (i*v.i + j*v. j + k*v.k) * (float) (span 1) , 

if (dp > 0.0001) ( 

valid = GetVert (&x, &y, &z) ; 
color (coir + (int) dp); 
if (valid) { 

pmv (x, y, z) ; 

valid = GetVert (&x, &y, &z) , 

while (valid) { 
pdr (x, y, z); 

valid = GetVert (&x, &y, &z) , 
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} 


polos (); 


} 


ply = NextFace (ply) ; 


} 


/***********************************i t * il **** ititilili , 1litil1t1t1l1t1tit1l1lit1tilit1l1l1[ii1iit1iitii1i1c 

OduiRoutine - This is going to be the main routine of the program 

when finished. All main functions of ODUI will be invoked 


from here. Some of the routines which are called directly 


from here now may be called from some other place in the 
future . 


*************************************************************************/ 
OduiRoutine () ' 

{ 

int option; 

char scenename [20] ; 


pushmenu (Smenul); 
openmenus (); 
option = WORLD; 
while (option != DONE) { 
option = checkmenuO; 
closemenus (); 
switch (option) { 

case WORLD: ChgWorldView () ; break; 
case ADD: AddAnObject (); break; 
case DELETE: DeleteAnOb ject (); break; 
case SAVESCENE: SaveObj (Scene); break; 

case LOADSCENE: printf ("Enter name of scene to load.Xn"); 

scanf ("%s" , scenename) ; 

LoadObj (Scene, scenename) ; 

Draw3WinScene (Scene, view) ; 

k)3T0cl}C * 

case S&LfSSS 0 [if 1 ' ' - 900 • . 100 . , 500 . , -300 . „ break; 

case DONE: break; 
default: break; 

} 

openmenus ( ) ; 

} 

closemenus () ; 
popmenu ( ) ; 
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ChgWorldView - This function handles rot at ions, ^ r ^Q^ 1 g2ene ZOOmln9, 

and clipping plane changes for the global scene. 

************************************************************************ V 


ChgWorldView () 

{ 

int option; 


pushmenu (Schgworldmenu) ; 
openmenus () ; 
option = WORLD; 
while (option != DONE) { 
option = checkmenuO; 
closemenus 0 ; 
switch (option) { 

case ROTATE: RotateWorld (); break; 

case TRANSLATE: TranslateWorld (); break; 

case ZOOM: ZoomWorld () ; break; 

case CLIP: Clip 0; break; 

case DONE: break; 

default: break; 

} 

openmenus ( ) ; 

} 

closemenus (); 
popmenu () ; 


/************************************************************************ 
AddAnObiect - This routine will be the general routine called when 

an object is to be added to the scene. This routine 
is NOT finished and will probably recieve a good deal 
of revision. 






AddAnObject () 

{ 

int option, col; 

int mx, my, mx2, my2, wind, wind2; 

Boolean pointvalid; 

float xl, yl, zl, x2 , y2, z2, xxl, yyl, zzl, xx2, yy2, 
Device button; 

OBJECT *rbody; 

KOBJ *ob j ; 

XFORM *xfrm; 


zz2 ; 


pushmenu (&addob jmenu) ; 
openmenus (); 
option = CYLINDER; 
while (option != DONE) { 
option = checkmenuO; 
closemenus () ; 
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pointvalid = FALSE; 
if (option != DONE) { 
button = RIGHTMOUSE; 

printf ("Select Origin with RIGHT button. \n\n") ; 

TurnOnCross (); 

if (GetLineCross (button, &mx, &my) ) ( 

wind = WhichWindow (mx, my); 

FindLine (mx, my, wind, &xl, &yl, &zl, &x2, &y2, &z2) ; 
if (GetPointCross (button, mx, my, &mx2, &my2) ) { 

pointvalid = TRUE; 
wind2 = WhichWindow (mx2, my2); 

FindLine (mx2, my2, wind2, &xxl, &yyl, &zzl, &xx2, &yy2, 

xfrm = NewXform () ; 

if (xl == x2 && yl == y2) { 

SetXformTransMulti (xfrm, xl, yl, zzl); 

} 

if (xl == x2 && zl == z2) { 

SetXformTransMulti (xfrm, xl, yyl, zl) ; 

} 

if (yl == y2 && zl == z2) { 

SetXformTransMulti (xfrm, xxl, yl, zl); 

} 

} 

} 

TurnOffCross (); 

} 

switch (option) { 
case CYLINDER: 

if (pointvalid) { 

col = ChooseColor (); 

obj = NewKObj ("cylinder"); 

rbody = GenCylinder (col, POLYS, 100.0, 300.0, 0); 

SetKOb j_Rbody (obj, rbody); 

AddKObj (Scene, obj); 

AddXform (obj, xfrm) ; 

} 

break; 
case PIPE: 

if (pointvalid) { 

col = ChooseColor (col) ; 
obj = NewKObj ("pipe"); 

rbody = GenPipe (col, POLYS, 250.0, 200.0, 200.0, 0) ; 
SetKOb j_Rbody (obj, rbody); 

AddKObj (Scene, obj); 

AddXform (obj, xfrm) ; 

} 

break; 

case SPHERE: 

if (pointvalid) { 

col = ChooseColor (); 

obj = NewKObj ("sphere"); 

rbody = GenSphere (col, POLYS, 75.0, 0); 


& z z 2 ) ; 
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SetKOb j_Rbody (obj, rbody); 

AddKObj (Scene, obj) ; 

AddXform (obj, xfrm); 

} 

break; 
case CONE: 

if (pointvalid) { 

col = ChooseColor (); 
obj = NewKObj ("cone"); 

rbody = GenCone (col, POLYS, 100.0, 300.0, 0); 

SetKOb j_Rbody (obj, rbody); 

AddKObj (Scene, obj) ; 

AddXform (obj, xfrm); 

} 

break; 
case CUBE: 

if (pointvalid) { 

col = ChooseColor (); 

obj = NewKObj ("cube"); 

rbody = GenCube (col, 100.0, 0); 

SetKOb j_Rbody (obj, rbody); 

AddKObj (Scene, obj); 

AddXform (obj, xfrm) ; 

} 

break; 
case BOX: 

if (pointvalid) { 

col = ChooseColor (); 
obj = NewKObj ("box"); 

rbody = GenBox (col, 200.0, 100.0, 50.0, 0); 

SetKOb j_Rbody (obj, rbody); 

AddKObj (Scene, obj); 

AddXform (obj, xfrm) ; 

} 

break; 

case PARALLELEPIPED: 
if (pointvalid) { 

col = ChooseColor () ; 

obj = NewKObj ("parallelepiped"); 

rbody = GenParallelepiped (col, 150.0, 75.0, 50.0, 45.0, 30.0, 

SetKOb j_Rbody (obj, rbody); 

AddKObj (Scene, obj); 

AddXform (obj, xfrm); 

} 

break; 

case DONE: break; 
default: break; 

} 

if (option != DONE) 

Draw3WinScene (Scene, view) ; 
openmenus ( ) ; 
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} 


} 

closemenus (); 
popmenu ( ) ; 




/********************************************* 

DeleteAnOb ject - Deletes an object from the scene. 

************************************************************************/ 
DeleteAnOb ject () 

{ 

} 

/************************************************************************ 
RotateWorld - Rotates the entire scene. 

*********************************************************************/ 
RotateWorld () 

{ 

} 

/************************************************************************* 
Translat eWorld - Translates the entire scene. 

*************************************************************************/ 
TranslateWorld () 

{ 

} 

/★a*********************************************************************’ 1 '* 
ZoomWorld - Changes the clipping planes so as to zoom/unzoom the scene. 




ZoomWorld () 


{ 

} 






Clip — Currently used to manually set the clipping planes. Should be 
replaced in the future by a routine which is easier to use and 
which will keep the user from being able to generate distorted 
displays . 




clip o 

float left, right, bottom, top, front, back; 
system ("clear") ; 

print f ("Current View Bounds : \n\n" ) ; 
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DisplayOrtho () ; 
if (YNresponse ("Change")) { 
print f ("Enter NEW clipping 


print f 
printf 
printf 
printf 
printf 
printf 


("Left 

("Right 

("Top 

("Bottom 

("Front 

("Back 


scanf 

scanf 

scanf 

scanf 

scanf 

scanf 


InitOrtho (left, right, bottom, top, 
system ("clear"); 

printf ("New View Bounds : \n\n" ) ; 
DisplayOrtho (); 


planes : \n") ; 

("%f", Sleft) ; printf ("\n") ; 
("%f", & right ) ; printf ("\n") ; 
("%f". Stop); printf ("\n") ; 
("%f", Sbottom) ; printf ("\n") 
("%f", & front ) ; printf ("\n") ; 
("%f", &back) ; printf ("\n") ; 
front, back) ; 


/************************************************************************* 
ChooseColor - General purpose color selection routine. The "Set 

Default Color" option is currently unimplemented. 

*************************************************************************/ 
ChooseColor () 

{ 

int option, col; 
static int deflt = RED; 


colormenu . list [ 12 ]. flag = FALSE; 
pushmenu (scolormenu) ; 
openmenus (); 
option = SETDEFCOLOR; 
while (option == SETDEFCOLOR) { 
option = checkmenu (); 
closemenus ( ) ; 

if (option == DEFAULTCOLOR) 
col = deflt; 
else 
{ 

if (option == SETDEFCOLOR) { 

} 

else 

col = option; 

} 

openmenus ( ) ; 

} 

closemenus (); 
popmenu ( ) ; 

colormenu . list [ 12 ]. flag = TRUE; 
return col; 


/**************★★***★****★*******★**************************************** 
CShell - This spawns a UNIX C-Shell in the text window. The shell can 
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be exited by typing "exit" or CONTROL-D at a prompt. 


CShell () 

{ 

int dummy; 


system (" /bin/csh") ; 
while (qtest () ) { 

qread (& dummy) ; 


} 

qreset () ; 


l.„„.«.«».««»«**»**«»v**********;**“*r;r^*™ii*M*«r*** 

YNresponse - Th ^ e ^« i °" d w ^ 1 t n f|" e the°u S Ir U ?o respond by typing 

f„/ or ' n '. There seems to be some problem w ' 


though . 


Arguments : 

ch - (char *) 


string containing the question to ask 


Value Returned: 


(Boolean) 


TRUE if the user typed 'y' or ' J' • 
FALSE if the user typed 'n' or N . 








Boolean YNresponse (ch) 
char *ch; 


{ 

char res; 


print f 
while 
print f 
return 


("%s? " , ch) ; 

(res = getcharO, res!='y' 
("\n") ; 

res == f y' II res == 'Y' ; 


&& res! =, Y' 


&& res! =/ n' 


&& res!='N' 


/ 


} 

/***************** 
Unimplemented - 


************************* 
This routine is used to 
to do something that is 


******************************* 
indicate that the user tried 
currently not implemented. 








Unimplemented () 

fprintf (stderr, "UNIMPLEMENTED\n\n" ) ; 

} 
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Appendix A. 3 Data Base 

/************************************************************************ 

Filename: interface. c 

by Timothy A. Thompson 

Purpose: The purpose of this package is to allow easy use of the 

rigid body database by hiding the actual structure of the 
underlying database from the application program using it. 

Functions Provided: AddCorner () 

AddPolygon () 

<*> DumpCore () 

<*> DumpVert () 

FirstFace () 

GetAttribute () 

GetVert () 

InitDataBase () 

NewAttribute () 

NewCorn () 

NewRb ( ) 

NewVertex () 

NextFace () 

SetAttribute () 

SetCorner () 

SetVertex () 

SameFace () 

UniqueRbNum () 

<*> Diagnostic functions provided for database debugging purposes. 

♦include "defs.h" 

♦include "dbdefs.h" 

Boolean FaceValid = FALSE; 

int CurrentRbNumber = 0; 

/*************************************************************************- 

UniqueRbNum - Returns a unique integer number each time is is called for 

use as a rigid body number. 

Value Returned: (int) unique integer number. 

★★★*★*★**★★**★***★*★******★***★★*********★★★★★*★******★★****★*****★*★*** j 

UniqueRbNum () 

{ 

return CurrentRbNumber++; 
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} 

/************** 

InitDataBase 

database 


********************************************************* 
Any chores necessary for the initialization of 


* * 
the 




should be placed in this routine. 
*************************************** 




* * * * 


/ 


InitDataBase () 

{ 


} 

/************************************************************************* 
AddPolygon - Makes a polygon out of the current list of corners 

(built with AddCorner) and adds it to the list of polygons 
which make up the Rigid Body pointed to by rb. Th 

attribute 

record pointed to by atr is associated with this polygon. 


Arguments: 

rb — (OBJECT *) points to the rigid body to which the polygon is t> 
be 

added. 

atr — (ATTRIBUTE *) points to the attribute structure for t.h< 
polygon 

being added. 

*************************************************************************/ 
AddPolygon (rb, atr) 

OBJECT *rb; 

ATTRIBUTE *atr; 

{ 

FaceValid = FALSE; 
obj = rb; 
attr = atr; 
add_polygon () ; 

} 

/************************************************************************* 
AddCorner - Adds a corner pointed to by cn to the list of corners 

"owned" by the rigid body pointed to by rb. These are free 
corners which have not yet been made into a polygon by 
AddPolygon . 


Arguments : 
rb — 


(OBJECT *) 


points to the rigid body to which the corner is t 


be 

added. 

cn — (CORNER *) points to the corner to be added. 
*************************************************************************/ 


AddCorner (rb, cn) 
OBJECT *rb; 

CORNER *cn; 
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{ 

FaceValid = FALSE; 
obj = rb; 
corn = cn; 
add_corner (); 

} 

/************************************************************************* 
NewRb - Creates a new rigid body identified by the integer rbnum which 

should be unique. 

Arguments : 

rbnum — (int) unique integer "name" for this rigid body. 

Value Returned: (OBJECT *) pointer to the new rigid body or NULL if 

space for the rigid body could not be allocated. 
*************************************************************************/ 

OBJECT *NewRb (rbnum) 
int rbnum; 

{ 

OBJECT *tmp; 

if ( (tmp = (OBJECT *) malloc (sobj) ) == NULL) { 

fprintf (stderr, "interface: malloc failed in NewRb\n"); 

} 

else 

{ 

FaceValid = FALSE; 
tmp->name = rbnum; 
tmp->nextobj = NULL; 
tmp->fce = NULL; 
tmp->corn = NULL; 
tmp->rcorn = NULL; 
obj = tmp; 

} 

return tmp; 

} 

f'k'k'k-kfc'k-k'k'k'k'k'k'k'k'k'k'k'k 

NewCorn - Creates 
Value Returned: 

•k'k-k-k'k'k'k'k'k'kiclc-kk’k'k'k'k-k 

CORNER *NewCorn () 

{ 

CORNER *tmp; 

if ((tmp = (CORNER *) malloc (scorn)) == NULL) { 

fprintf (stderr, "interface: malloc failed in NewCorn\n"); 

} 

else 


******************************************************* 
a new corner (which will contain a vertex) . 

(CORNER *) pointer to the new corner or NULL if space 
for the new corner could not be allocated. 
******************************************************/ 
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{ 

tmp->nextcorn = NULL; 
tmp->vtx = NULL; 

} 

return tmp; 


SetCorner - Sets the corner pointed to by cn with the vertex pointed to 
by vert . 

Arguments : 

cn — (CORNER *) points to the corner to set. 

vert — (VERTEX *) points to the vertex which the corner is to be 
defined as. 

It************************************************************************/ 

SetCorner (cn, vert) 

CORNER *cn; 

VERTEX *vert ; 

{ 

cn->vtx = vert; 

} 

/************************************************************************* 
NewVertex - Creates a new vertex structure. 

Value Returned: (VERTEX *) pointer to the new vertex or NULL if space 

could not be allocated for the new vertex. 
*************************************************************************/ 
VERTEX *NewVertex () 

{ 

VERTEX *tmp; 

if ((tmp = (VERTEX *) malloc (svtx) ) == NULL) { 

fprintf (stderr, "interface: malloc failed in NewVertex\n" ) ; 

) 

else 

{ 

tmp->iedg = NULL; 

} 

return tmp; 

} 

/********************************************************************** * * * 
SetVertex - Sets the values of the coordinates of a newly created vertex 

Arguments : 

vtx — (VERTEX * ) pointer to the vertex to set. 

x, y, z — (float) x, y, and z coordinates to which the vertex is tc 


be set 
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SetVertex (vtx, x, y, z) 
VERTEX *vtx; 
float x, y, z; 

{ 


vtx->x = x; 

Vtx->y = y; 
vtx->z = z; 

} 

/*********************** 
GetVert - Returns the 


*************** 
coordinates of 


***************************** 
the next vertex of a polygon 


****** 

( face) 


or returns FALSE to indicate that there are no more vertices in 
the polygon. The face from which the vertices are to be taken 

or°"sLeFarJ» eCted by firSt Calling "FirstFace", "NextFace”, 


Arguments : 

x, y, z — 

Value Returned: 


(float *) x, y, and z coordinates returned. 

(Boolean) Returns TRUE (non-zero value which happens to 

be a pointer to the VERTEX record of the vertex) 

1 x / Yr and z contain valid coordinates. Returns FALSE 


*********** 


****** 


(zero) if the last 
been returned. 
******************** 


VERTEX * GetVert (x, y, z) 
float *x, *y, * z ; 


vertex 

******** 


in the polygon has 
******************* 


already 

********* 


/ 


if ( ! FaceValid) { 
abandon_polygon (); 
loop_poly (1); 
corn = obj->rcorn; 
FaceValid = TRUE; 

if (corn) { 

vtx = corn->vtx; 

*x = vtx->x; 

*y = vtx->y; 

*z = vtx->z; 

corn = corn->nextcorn; 

} 

else 

{ 


FaceValid = FALSE; 
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return (FaceValid ? vtx : NULL) ; 

} 

.......... ..********************************************* 

NewAttribute - Creates a new attribute structure. 

Value Returned: (ATTRIBUTE *) pointer to the new attribute structure or 

NULL if space could not be allocated for the new 

?* i ** 5***;*************************************************************** 7 

ATTRIBUTE *NewAttribute () 

{ 

ATTRIBUTE *tmp; 

if ( (tmp = (ATTRIBUTE *) malloc (sattr)) == NULL) { . 

fprintf (stderr, "interface: malloc failed in NewAttribut \ , 

} 

return tmp; 

} 

,************************************************************************* 
SetAttribute - Sets the attributes in an attribute structure. 

Ar gu ments^ {ATTRIBUTE * } pointer to the attribute structure to set. 

J, j, k -- (float) i, j, and k components of the normal vector of 

the polygon. The vector should be oriented so it points out 

from the side of the polygon which should be visible, 
coir — (int) base color of the polygon. (See the defs.h file for 

base color values.) 

SetAttribute (attr, i, j, k, coir, flag) 

ATTRIBUTE *attr; 
float i, j, k"; 
int coir, flag; 


{ 


attr->norm.i = i; 
attr->norm.j = j; 
attr->norm. k = k; 
attr->colr = coir; 
attr->flags = flag; 










GetAttribute - Gets the attributes from an attribute structure. 
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Argument s : 

face — (FACE *) pointer to the 
i, j, k — (float *) i, j, and 


face from which to attributes . 
k components of the normal vector of 


the polygon. 

coir — (int *) base color of the polygon, 
flag -- (int *) Reserved for future use. 


*-**********-**-*** i **-* i ********^ 


GetAttribute (face, i, j, k, coir, flag) 
FACE *face; 
float *i, *j, *k; 
int *colr, *flag; 

{ 

ATTRIBUTE *attr; 


attr = face->attr; 

*i = attr->norm. i; 

*j = attr->norm . j ; 

*k = attr->norm . k; 
*colr = attr->colr; 
*flag = attr->f lags; 


} 

/*********** 






FirstFace - Get the pointer to the first polygon of a rigid body. 


^ j-b __ (OBJECT *) pointer to the rigid body from which to return 
the first face. 

Value Returned: (FACE *) pointer to the first face of the list of faces 


which make up the rigid bod y ;^************************ , 
********************************************** 


FACE *FirstFace (rb) 
OBJECT *rb; 

{ 

FaceValid = FALSE; 
obj = rb; 
fee = obj->fce; 
return fee; 


} 


/***************************************************** 

NextFace - Get the pointer to the next polygon of a rigid body 
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Arguments : 
lastfce 


(FACE *) pointer to the current face of the rigid body. 


Value Returned: ' (FACE *) 

NULL if " 

**************************** 
FACE *NextFace (lastfce) 

FACE *lastfce; 


pointer to the next face of the rigid body or 
lastfce" was the last face in the list. 
*********************************************/ 


{ 


if (lastfce) { 

FaceValid = FALSE; 
fee = last fce->nextfce; 
return fee; 

} 

else 

return NULL; 






SameFace 


Returns a pointer to the current face. This routine must be 
called if one wants to read the vertices of a particular face 


vertices . 


twice 


in a row, 


since this routine 


resets the list of 


Arguments : 

lastfce (FACE *) pointer to the current face. 


Value Returned: (FACE * 

************************* 


) pointer to the current face. 

A****************************^.^^^,!.^^^^^^^^^^^^^^ 


/ 


FACE *SameFace (lastfce) 
FACE *lastfce; 

{ 

FaceValid = FALSE; 
return lastfce; 

} 






DumpCore - Traverses the database and prints out the values of all the 
pointers involved in the representation of one rigid body. 
This routine is intended for purposes of debugging. 


Arguments : 


rb — (OBJECT * 
********************** 

DumpCore (rb) 


) pointer to the rigid body to traverse. 


OBJECT *rb; 


{ 


printf ("interface: About to dump database\n") ; 
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obj = rb; 

for (fce=ob j->fce; fee; 
print f ("Face: 
print f (" bedge: 
printf (" nextface : 
for (bedg = fce->bedg; 
printf ("Bedge: 
printf (" edge: 
printf (" nextbedge 
edg = bedg->edg; 
printf ("Edge: 
printf (" facel: 
printf (" face2 : 
printf (" vertl : 
printf (" vert2 : 
DumpVert (edg->vtxl) 
DumpVert (edg->vtx2) 


fce=fce->nextfce) { 

%ld\n" , fee) ; 

%ld\n", fce->bedg) ; 

%ld\n\n" , f ce->nextfce) ; 
bedg; bedg=bedg->nextbedg) 

%ld\n",bedg) ; 

%ld\n" ,bedg->edg) ; 

: %ld\n\n",bedg->nextbedg) ; 

%ld\n" , edg) ; 

%ld\n" , edg->fcel) ; 

%ld\n" , edg->fce2) ; 
%ld\n",edg->vtxl) ; 
%ld\n\n" , edg->vtx2) ; 

9 

9 


} 


} 


*********** 












DumpVert - Prints information about a vertex ^ ^ f iS^pCore" . 
database debugging purposes and is caneu * 


(VERTEX ‘) pointer to vertex from which to print information 

DumpVert (vt) 

VERTEX *vt; 

‘ printf 7T" Z: %ff ^^n V t->x,vt->y, vt->z> ; 

ig; iedg; iedg=iedg^>nextiedg) ( 

nri ntf ("ledge: %ld\n f iedg); 

orintf " edge: %ld\n", iedg->edg) ; 

printf (•• nextiedge: %ld\n\n" , iedg->nextredg) ; 

} 


} 
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Appendix A. 4 3-D windows 


Filename: window. c 


by Timothy A. Thompson 


Purpose: This package implements and controls the three orthogonal 

projection windows and the text window. Services include: 
setting up the color map for shading purposes, initializing and 

sizing windows, selecting current window, setting and reading 
current clipping planes, and mapping between screen coordinates 

and 3d world coordinates. 


Functions Provided: BorderWindow () 

BuildColorMap () 
DisplayOrtho () 

FindLine () 

GetOrtho () 
GetWindowSides () 

Init ializeWindowLocs () 
InitOrtho () 
InitTextWindow () 
SetWindow () 

WhichWindow () 


linclude "defs.h" 




int Left [Windows] , Right [Windows] , Bottom [Windows] , 
float OrthoLeft, OrthoRight, OrthoBottom, OrthoTop, 


Top [Windows ] ; 
OrthoNear, OrthoFar; 


/***************** 
BuildColorMap - 


************* 
Initializes 
properly on 
supported: 


the color map so objects can be shaded 
the screen. Currently, seven colors are 
red, green, yellow, blue, magenta, cyan, and 


white. The map is generated such that there are "span" 


number of intensities of each color. "span" is defined 


in file "defs.h". 


BuildColorMap () ***..****** 

{ 


:wxxx******** 


int i, intensity; 

/* Color Ramp colors */ 
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} 


for (i=0; i<span; i++) { 

intensity = 256/span+125+i*128/span; 


mapcolor (red+i 
mapcolor (green+i 
mapcolor (yellow+i 
mapcolor (blue+i 
mapcolor (magenta+i, intensity. 


mapcolor (cyan+i 
mapcolor (white+i 


intensity, 0, 

0, intensity, 
intensity, intensity, 
0 , 0 , 

0 , 

0, intensity, 
intensity, intensity. 


0 ); 
0 ); 
0 ) ; 

intensity) ; 
intensity) ; 
intensity) ; 
intensity) ; 


/************n** H)tH)t 

Initial izeWindowLocs 


★ * 


**********************************^*^ 
Sets the default positions and sizes 
three projection windows and the text 


********** 
of the 
window. 


InitializeWindowLocs () ***********************^ 

{ 


Left [WholeScreen] = 0; 
Right [WholeScreen] = 1023; 
Bottom [WholeScreen] = 0; 

Top [WholeScreen] = 767; 


Left [FrontView] = 0; 
Right [FrontView] = 511; 
Bottom [FrontView] = 0; 
Top [FrontView] = 383; 


Left [SideView] 
Right [SideView] 
Bottom [SideView] 
Top [SideView] 


512; 

1023; 

Bottom [FrontView] ; 
Top [FrontView] ; 


Left 

Right 

Bottom 

Top 


[Top View] = Left [FrontView]; 
[TopView] = Right [FrontView]; 
[TopView] =384; 

[TopView] = 767; 


Left [TextWindow] 
Right [TextWindow] 
Bottom [TextWindow] 
Top [TextWindow] 


Left [SideView]; 

Right [SideView]; 
Bottom [TopView]; 
Top [TopView]; 


/fr*************,***^^^^ 

InitOrtho - Initializes 


*************************** 
the clipping planes to the 


******************** 
values supplied. 


Arguments : 
left — 
right — 


(float) left clipping plane, 
(float) right clipping plane. 


(X minimum) 

(X maximum) 
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bottom 
top — 
near - 
far — 


(float) bottom clipping plane. (Y minimum) 
(float) top clipping plane. (Y maximum) 
(float) near clipping plane. (Z maximum) 
(float) far clipping plane. (Z minimum) 






InitOrtho (left, right, bottom, top, near, far) 
float left, right, bottom, top, near, far; 

{ 

OrthoLeft = left; 

OrthoRight = right; 

OrthoBottom = bottom; 

OrthoTop = top; 

OrthoNear = near; 

OrthoFar = far; 


/************************************************************************ 
GetOrtho - Returns the current clipping plane values. 


Arguments : 

left — (float *) 
right — (float * 
bottom -- (float 
top — (float *) 
near — (float *) 
far — (float *) 


returns left clipping plane. (X minimum) 

) returns right clipping plane. (X maximum) 

*) returns bottom clipping plane. (Y minumum) 
returns top clipping plane. (Y maximum) 
returns near clipping plane. (Z maximum) 
returns far clipping plane. (Z minimum) 


************************************************************************ 7 
GetOrtho (left, right, bottom, top, near, far) 
float *left, *right, *bottom, *top, *near, far; 

{ 

*left = OrthoLeft; 


*right = OrthoRight; 
^bottom = OrthoBottom; 


*top = OrthoTop; 
*near = OrthoNear; 
*far = OrthoFar; 


} 


/★★★★★A******** 

DisplayOrtho 


*********************************************** 
Prints the current clipping plane values to 
output . 


*********** 

standard 






DisplayOrtho () 

{ 

printf ("Left %7.2f 
printf ("Top %7.2f 
printf ("Front %7.2f 

} 


Right %7.2f\n”, OrthoLeft, OrthoRight); 
Bottom %7.2f\n", OrthoTop, OrthoBottom); 
Back %7.2f\n", OrthoNear, OrthoFar); 
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/************************************************************************ 
InitTextWindow - Sets the size and location of the textport and clears 

the text window. 

************************************************************************/ 
InitTextWindow () 

{ 

textport (Left [TextWindow] , Right [TextWindow] , Bottom [TextWindow] , 

Top [TextWindow] ) ; 
system ("clear"); 

} 

/************************************************************************ 
SetWindow - Makes the indicated window active for drawing. 

Arguments : 

WindowNum — (int) window to make active. (See file "defs.h" for 
window names and their corresponding number.) 

************************************************************************/ 
SetWindow (WindowNum) 
int WindowNum; 

{ 

if (WindowNum != TextWindow) ( 

viewport (Left [WindowNum] +1, Right [WindowNum] -1, Bottom [WindowNum] +1 , 

Top [WindowNum] -1) ; 
color (BLACK) ; 
clear ( ) ; 
zclear ( ) ; 

switch (WindowNum) { 
case FrontView: 

ortho (OrthoLeft, OrthoRight , OrthoBottom, OrthoTop, -OrthoNear, -OrthoFar) ; 
break; 

case SideView: 

ortho (OrthoFar, OrthoNear, OrthoBottom, OrthoTop, -OrthoRight, -OrthoLeft) ; 
break; 

case TopView: 

ortho (OrthoLeft, OrthoRight, OrthoFar, OrthoNear, -OrthoTop, -OrthoBottom) ; 
break; 
default : 
break; 

} 

} 

} 

/★★★★★■a****************************;************************************** 

BorderWindow - Draws a white border around a window and makes that 
window 

active . 
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Rr9U wHdSwNum — L .h" nd for ar 2indow hl names ^nd b ?heir' corresponding 

number . ) 

BorderWindow (WindowNum) 
int WindowNum; 

1 if vSo?? aeftmlndowS:’ Right [ WindowNum] , Bottom [WindowNum] , 

Top [WindowNum] ) ; 
color (WHITE) ; 
clear () ; 

SetWindow (WindowNum) ; 

} 


**”.****”******'7^ of a P° int > returns 

WhichWindow - Given the x and y screen 
an integer number indicating which window the point is in. 


Arguments^ ^ ^ y screen c00rdinate s of point 


value Returned: (int) window which contains the point. (See file 

' defs - h " for window names and their corresponding number.) 


WhichWindow (x, y) 
int x, y; 


{ 


int i; 


for (i=l; KTextWindow; i++> Bottom [i] && y < Top[i]) 

if (x > Left [i] && x < Right [ 1 ] && y > Bottom ixj * 

return (i) ; 
return (-1) ; 


} 


/ *;];ri;r-**ri;;r;hrr;r;*;rrri;;;:rrf*r;:inr;r;;rrindo„which 


projection 


world 1 " space whilh ihose 


on the screen appears as the point given. 

Note: If the point (mx, my) is not in "window", the result 
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to 


the window is torrecrbi d ?alling e "Whi?hWi?dow" n firs t Be ^ 

Arguments: 

f (int) screen coordinates o'F t-h^ 

nates of the projection point of line 

, determine. 

wxl, wyl, wz^-- Afloat W ?)" Ch re? ntainS the P ° int < mx ' my) 

(float , returns x, y, and z world Coordinates of 

wx2, wy2, wz2 — 0f the line. 

returns x, y, and z world coordinates of 


the other endpoint of the line. 


FindLine (nix, my, *Cindowrwxr*wi**C2i****r**************************V 
mt mx, my, window; ' Wyl ' wzl ' wx2 ' ^ y 2, wz2) ' 

float *wxl, *wyl, *wzl, *wx2, * W y2, *wz2; 

switch (window) { 
case FrontView: 

*wx2 = l!1 S?t 0 holeft f )° dt ^thS^““ dOWl ' Left 'window), 

- 

*wzl — OrthoNear; 

*wz2 = OrthoFar; 
break; 

case SideView: 

*wxl = OrthoRight; 

^wx 2 = OrthoLeft; 

Bottom [window) ) , (float) <my-Bottom[window] )/ (float) (Top(window) 

(OrthoTop - OrthoBottom) + OrthoBottom; 


*wy2 = *wyl; 

wz2 = !*JoZlhSa??g ^JSoSelC) 7 ( f ^SicSFa?^ tWind ° W] ’ Lef t [window] ) 


* mrHoP, o ‘ UOWJ > / (float) (Rig! 

*wz2 = *wzl; thoFar " OrthoNear) - OrthoFa?; 

break; 

case TopView: 

*wx2 = *wxl^^^^^^ W ~ n °°^^®^'' a ^ , ®tthoLeft; dOW ^ ' Le ^ c (window) , 
*wyl = OrthoTop; 

*wy 2 = OrthoBottom; 

Bottom [w^down^f^ > / (float) (Top [window] - 

*wz2 = *wzl; LUO£ar OrthoNear) - OrthoFar; 
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break; 
default : 
break; 

} 

} 


/ 


***************** 
GetWindowSides - 


****************************************************** 
Returns (in screen coordinates) the locations of the 
sides of the given window. 


* 


Arguments : 
window 
left — 
right - 
bottom 
top — 


(int) window whose sides are needed. 

(int *) returns left side (x coordinate) of window. 

(int *) returns right side (x coordinate) of window. 

— (int *) returns bottom side (y coordinate) of window, 
(int *) returns top side (y coordinate) of window. 


*********** 




GetWindowSides (window, left, right, bottom, top) 
int window, *left, *right, *bottom, *top; 


if (window >= 0 && window < Windows) { 
*left = Left [window] ; 

* right = Right [window] ; 

*bottom = Bottom [window] ; 

*top = Top [window] ; 
return TRUE; 

} 

else 

return FALSE; 


} 
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Appendix A. 5 Pop-up Menus 




Filename: popmenu.c ************************ 

by Tim Thompson 


Purpose: 


IwJlXXut 8 ‘S 9 t£e her t ? in9S) a -»» 

all active menus are displayed The P f - *° Utlne is called, 
title bar as opposed to a whiro 4 -?? n ac ^ lve menu has a red 
When the user movls the voTntll bltle bar for the ^hers. 
dimmed) selections in the Active m^n 0ne , of the valid (not 
mouse button a vsino actlve . menu and presses the right 
returned Me u a ca Vr SP ° n ing t0 the elected item is 
selecting the tJtie bar of ar ° Und ° n the screen by 

mouse button, moving the menu “Sith^h* 0 ^ With the right 
releasing the button That IL mouse, and then 

location every time it I OD S then appear in that 

The package also supports menus with^hi ^ moved again, 
and "dimmed" items which cannot ho 5 b l. ai \ k llne separators 
is actually implemented as a salected - Th e menu system 

stack is the actTve menu Mon? Where the t0 ? menu on the 

"pushmenu" and removed by -popmenu?' a m° ^ v? tack by 
returned from the arti™ 1 m fl n P ° P ! enu * A menu choice is 

Open menus (menus ST 1I ^f kBenu ' iS Called ' 

and off by call i na stac ^) can be turned on 

respectively lllng "openmenus" and "closemenus™ 

SJ’uSfSS se!lctTofn?f ?n a tSe S ?; hair selecti ™ system, 
cross-hairs in the three proiectin? d ^ m ® nsiona l space by moving 
may select either a poinf P nr n V windows. The user may 
by calling one of tw Q P routines . ^ 10 three-dimens ional space 


Functions Provided: 


calcbounds () 
checkmenu () 
closemenus () 
DrawPrimaryCross () 
DrawSecondaryCross () 
GetLineCross () 
GetPointCross () 
openmenus () 
popmenu () 

Popup ( ) 

PopupColorlnit () 
pushmenu () 
RetrieveScreenEnv () 
shadowpopup () 
StoreScreenEnv () 
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TurnOffCross () 
TurnOnCross () 


Implementation Notes: 

The menus use the following structures defined in file "defs h 
struct popupentry { 
short type; 
char *text; 

Boolean flag; 


struct menutype { 
int x; 
int y; 

char *title; 

struct popupentry *list; 


to^r^eturni^wh^n ^ pu ?f ntr Y should contain a positive number 
"tvoS" eauJ? the item is selected. A popupentry with 

type equal to zero indicates the end of the popupentry arrav 
A popupentry with "type" less than zero is assumed^to be a blank 

sSec?2d a bf ?he Sse!?*) men “ ^ WiU be Snored . (These cannot be 

particular men^seL^o^ 17 iS the teXt displa ^ d that 

The "flag" field should contain "FALSE" if the item i«? t-o >-,o 
"dimmed" such that it cannot be selected. If "fllg" is "true" 
the item can be selected. 9 UE ' 

h*" ? nd " Y " fields in menutype should contain the screen 
coordinates at which the top left corner of the menu will appear. 

the mle^a^thS mir yPe 13 teXt that be 

The list" field is a pointer to the popupenty array for that menu. 

♦include "defs.h" 


struct menulist *openlist, *lastmenu; 

Boolean MenusOpen = FALSE, MenusWereOpen = FALSE; 
short savecolor, savemask; 
short llx, lly, urx, ury; 


CrossOn 


FALSE; 


/**************** 

PopupColorlnit 


******************* 
Initializes the 


A****************************^^^^ 

P° r ti°n of the color map which is used 
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to draw the menus (with a write-mask) . 






PopupColorlnit () 

{ 

int i; 


/* Popup Menus — Background color */ 
for (i=POPCOLORl; i<P0PC0L0R2; i++) 
mapcolor (i, 0, 0, 0) ; 

/* Popup Menus -- Text color */ 
for (i=POPCOLOR2 ; i<POPCOLOR3; i++) 
mapcolor (i, 255, 255, 255) ; 

/* Popup Menus — Highlight color */ 
for (i=POPCOLOR3; i<POPCOLOR4; i++) 
mapcolor (i, 125, 125, 125) ; 


/* Popup Menus — Active Title bar color */ 
for ( i=POPCOLOR4 ; i<POPCOLOR5; i++) 
mapcolor (i, 255, 0, 0) ; 


/* Popup Menus — Shadowed Text color */ 
for (i=POPCOLOR5; KENDCOLOR; i++) 
mapcolor (i, 130, 160, 200) ; 


/************************************************************************ 
openmenus - Sets the graphics system for menu display and opens the 

menus . 

Any menus on the menu-stack will become visible. 

************************************************************************/ 
openmenus () 

{ 

struct menulist *menupntr; 

if (IMenusOpen) { 

StoreScreenEnv (); 

MenusOpen = TRUE; 
menupntr = openlist; 
while (menupntr != NULL) { 

popup (menupntr->menu, menupntr->next == NULL) ; 
menupntr = menupntr->next ; 

} 

curs on () ; 

} 

} 

/********★*************************************************************** 
calcbounds - Calculates the locations of the edges of a menu. This 
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r °!^ t w ne '*' S usec * internally by the menu system and should 
^ct be needed by a user of the menu package . 


(struct menutype *) pointer to the menu of which to 


Arguments : 
menu — 
calculate 

edge locations. 

menuleft (short int *) screen location of left edge of menu 

menutop h - (shor?^ screen location of right edge of menu. 

mf« U K°? 4 - (short int *) screen location of top edge of menu, 
enubottom - (short int *) screen location of bottom edge of menu 


menucount 


(short int *) number of choices available in menu 


**************** 
calcbounds (menu 
struct menutype 
short *menuleft, 

{ 


*********** 

/ menuleft, 
*menu; 
*menuright 


****H*****H****************** H)kHHH)tH]t ^ 

menuright, menutop, menubottom, menucount) 

, *menutop, *menubottom, *menucount; 


*menucount = 0; 

while ( (* ( ( (*menu) . list) + (*menucount) ) ) .type) 
(*menucount ) ++; 

*menutop = menu->y; 

*menubottom = menu->y - *menucount*16; 
if (*menutop > 751) { 

*menutop = 751; 

*menubottom = *menutop - *menucount*16; 
menu->y = *menutop; 

if (*menubottom < 0) { 

*menubottom = 0; 

*menutop = *menubottom + *menucount*16; 
menu->y = *menutop; 

*menuleft = menu->x; 

*menuright = menu->x + 200; 
if (*menuleft < 0) { 

*menuleft = 0; 

*menuright = 200; 
menu->x = *menuleft; 

} 

if (*menuright > 1023) { 

*menuright = 1023; 

*menuleft = 823; 
menu->x = *menuleft; 


/★******** 
popup - 


********************** 
Displays a menu. Thi 
system and should not 


s routine is used internally by the menu 
be called by a user of the menu package. 
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Arguments: . 

menu — (struct menutype *) pointer to menu to display, 
active — (Boolean) flag indicating whether this menu is to be 
displayed as the active menu (i.e. red title bar) . 






popup (menu , act i ve ) 
struct menutype *menu; 

Boolean active; 

{ 

register short i; 

short menutop, menubottom, menuleft, menuright, menucount. 


if (MenusOpen) { 

calcbounds (menu, Smenuleft, Smenuright, Smenutop, &menubottom, 
&menucount) ; 

color (POP UP BACKGROUND) ; /* menu background */ 

cursof f ( ) ; 

rectfi (menuleft, menubottom, menuright, menutop); 
color (active ? POPUPACTIVE : POPUPTEXT); 
rectfi (menuleft, menutop+1, menuright, menutop+16); 
if (active) { 

color (POPUPTEXT) ; 

recti (menuleft, menutop+1, menuright, menutop+16); 

} 

color (POP UP BACKGROUND) ; 

cmov2i (menuleft + 10, menutop +2); 

charstr (menu->title) ; 

color (POPUPTEXT) ; /* menu text */ 

move2i (menuleft, menubottom); 
draw2i (menuleft, menutop) ; 
draw2i (menuright, menutop) ; 
draw2i (menuright , menubottom); 
for (i = 0; i < menucount; i++) { 

color (POPUPTEXT) ; 

move2i (menuleft , menutop - (i+l)*16); 
draw2i (menuright , menutop - (i+l)*16); 
color (menu->list [i] .flag ? POPUPTEXT : POPUP S HADOW ) ; 
cmov2i (menuleft + 10, menutop - 14 - i*16); 
charstr ( (menu->list [i] ) .text) ; 

} 

} 

} 




shadowpopup — Displays the outline of a menu. This is done when a menu 


is being moved. This routine is used internally by the 
menu system and should not be called by a user of the menu 


package . 
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Ar 9 U S S i- (Struct menutype * ) pointer to .enu whose outline is to be 

displayed. . ,,>,oi-hpr this menu is to be 

active - (Boolean, « s ^ h ^f v - g e“nu e (i.e. red outline). 

shadowpopup (menu, active) 
struct menutype *menu; 

Boolean active; 


{ 


S?rf ZnTop, menubottom, menuleft, menuright, —count; 


lf cflX S unls n) ‘(menu, amenuleft, menuright, amenutop, amenubottom, 

■Sai-se'S?!-*. 

} 

calls this routine when he wishes to read in one of the menu 
selections. This routine causes the current selections to 


be 


highlighted and returns the valu* : -sociate^with _ theorem 

selected with the press of t 9 title bar is selected, 

routine also moves a menu when its “ or . f 

If this routine ^ checLSnu returns a value of 

the menus are not turned ° / „ „ entry a s it signals 

zero (0). (Zero is not a valid type enu y 

the end of the popupentry array.) 

• \ i-v-,o nt-vnp" entry from the popupenty array 

Value Returned: ^°^ a ^d with the active menu which corresponds to the 

selection the user makes with the mouse. 

checkmenu 0 

{ struct menulist *temp, *menupntr; . 

struct menutype *menu, va i menuricrht, menucount; 

S23 SSS: 

short lasthighlight = -1/ highlight, 
int dx, dy; 

Device val, x, y; 
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if (MenusOpen && lastmenu != NULL) { 
menu = lastmenu -> menu; 
qreset () ; 

tie (RIGHTMOUSE, MOUSEX, MOUSEY); 

setvaluator (MOUSEX, (menu->x) +100, 0, XMAXSCREEN) ; 
setvaluator (MOUSEY, (menu->y) -8, 0, YMAXSCREEN) ; 
curson () ; 
while (1) { 

calcbounds (menu, Smenuleft, Smenuright, Smenutop, Smenubottom, 

imenucount ) ; 


0 


/* 


x = getvaluator (MOUSEX) ; 
y = getvaluator (MOUSEY) ; 

if (menuleft < x && x < menuright && menubottom < y && y < menutop) { 
highlight = (menutop - y)/16; 

if (lasthighlight != -1 && lasthighlight != highlight) { 

/* not last selection — turn off old box */ 
color (POP UP BACKGROUND) ; 
cursof f ( ) ; 

rect f i (menuleft+1 , menutop - lasthighlight *16 - 15, 

menuright-1, menutop - lasthighlight*16 - 1); 
color (menu->list [lasthighlight] .flag ? POPUPTEXT : POPUP SHADOW) ; 

cmov2i (menuleft + 10, menutop - 14 - lasthighlight*l 6) ; 
charstr (menu->list [lasthighlight] .text) ; 
curson ( ) ; 

} 

if (lasthighlight != highlight) { 

/* turn on new box */ 
cursof f () ; 

color (menu->list [highlight ]. flag && menu->list [highlight ] .type > 

? POPUPHIGHLIGHT : POPUPBACKGROUND) ; 
rectfi (menuleft+1, menutop - highlight*16 - 15, 

menuright-1, menutop - highlight*16 - 1); 
color (menu->list [highlight] .flag ? POPUPTEXT : POPUPSHADOW) ; 
cmov2i (menuleft + 10, menutop - 14 - highlight*16) ; 
charstr (menu->list [highlight] .text) ; 
curson ( ) ; 

} 

lasthighlight = highlight; 
swapbuffers (); */ 

} 

else /* the cursor is outside the menu */ 

{ 

if (lasthighlight != -1) { 

cursof f ( ) ; 

color (POPUPBACKGROUND) ; 

rectfi (menuleft+1, menutop - lasthighlight *16 - 15, 
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/* 


1 ) { 


menuright-1, menutop - lasthighlight*16 - 1) ; 
color (menu->list [highlight] .flag ? POPUPTEXT : _ POPUPSHADOW) ; 
cmov2i (menuleft + 10, menutop - 14 - lasthighlight*16) ; 
charstr (menu->list [highlight] .text) ; 
curson ( ) ; 

lasthighlight = -1; 
swapbuffers (); */ 

} 

} 

if (qtest () ) { 

if (qread (&val) == RIGHTMOUSE) { 
qread (&x) ; 
qread (&y) ; 
if (val == 1) { 

if (menuleft<x && x<menuright && menubottom<y && y<menutop) { 
color (0) ; 
cursoff () ; 

rectfi (menuleft, menubottom, menuright, menutop+16) ; 
curson () ; 

x = (menutop - y ) / 1 6 ; 
break; 

} 

else 

{ 

/* menu mover */ 
temp = openlist; 
validmenu = NULL; 
while (temp != NULL) { 

if (x > temp->menu->x && x < temp->menu->x+200 && 

y > temp->menu->y && y < temp->menu->y+16) 
validmenu = temp->menu; 
temp = temp->next; 

} 

if (validmenu != NULL) { 

dx = (int)x - (*validmenu) .x; 

dy = (int)y - (*validmenu) .y; 

color (0) ; 

cursoff ( ) ; 

clear ( ) ; 

linewidth (2) ; 

while (qtest () ? ( (qread (&val) ! =RIGHTMOUSE) || (val!=0)) 

color (0) ; 

calcbounds (validmenu, &tmpleft, &tmpright, Stmptop, 

&tmpbottom, &tmpcount) 


gsync (); 

recti (tmpleft, tmpbottom, tmpright, tmptop+16) ; 
validmenu->x = getvaluator (MOUSEX) - dx; 
validmenu->y = getvaluator (MOUSEY) - dy; 
menupntr = openlist; 
while (menupntr != NULL) { 
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if (menupntr->menu == validmenu) 
gsync (); 

shadowpopup (menupntr->menu, menupntr->next 
menupntr = menupntr->next; 

/* swapbuf fers ( ) ; */ 

} 


} 

linewidth (1); 
closemenus (); 
openmenus (); 

} 

} 

} 

} 

} 

} 

tie (RIGHTMOUSE, 0, 0) ; 

while ( ! qtest ( ) ) ; 

while (qtest ()) qread(&val); 

return ( (menu->list [x] . type > 0) && (menu->list [x 
menu->list [x] . type : (popup(menu, TRUE), 

} 

else 


.flag)) ? 
checkmenu 


{ 

return 0 ; 

} 

} 


== NULL) ; 


0 ) ; 


/************************************************************************ 
closemenus - Turns off the display of menus and returns the graphics 
environment back the way it was before the call to 
"openmenus" . 

************************************************************************/ 
closemenus () 

{ 

if (MenusOpen) { 

MenusOpen = FALSE; 

RetrieveScreenEnv (); 

} 

} 


/************************************************************************ 
pushmenu - Pushes a new menu on the menu-stack. The new menu becomes 
the active menu. 


Arguments : 

menu — (struct menutype *) pointer to the menu to place on stack. 

************************************************************************ i 

pushmenu (menu) 
struct menutype *menu; 
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{ 

struct menulist *newmenu, *temp; 


if ( (newmenu = (struc 
menulist) ) ) ==NULL) 

printf ("popmenu: malloc 

newmenu->menu = menu; 
newmenu->next = NULL; 
nevnnenu->last = lastmenu; 
if (openlist != NULL) 

lastmenu->next = newmenu; 
else 

openlist = newmenu; 
lastmenu = newmenu; 
if (MenusOpen) { 
closemenus (); 
openmenus (); 

} 


t menulist *) malloc 
failed in pushmenu\n" ) ; 


} 


(sizeof (struct 




popmenu - 
menu- 


Removes a menu off the top of the stack. The new top menu 
becomes the active menu. A call to this routine when the 

stack is empty has no effect. 


popmenu ( ) 

( 

struct menulist *temp; 

if (openlist) { 

if (lastmenu == openlist) { 
temp = openlist; 
openlist = NULL; 
lastmenu = NULL; 

} 

else 

{ 

temp = lastmenu; 
lastmenu = temp->last; 
lastmenu->next = NULL; 
if (MenusOpen) { 
closemenus (); 
openmenus ( ) ; 

} 

} 

free (temp) ; 

} 


/ 
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TurnOnCross 

point 


Sets up the graphics system for the display of of the 
selection cross-hairs. If the popup menus were turned on, 
that fact is noted and they are turned off. 


★ A***********************************************.***********************/ 

TurnOnCross () 

{ 

if (MenusOpen) { 

MenusWereOpen = TRUE; 
closemenus (); 

} 

CrossOn = TRUE; 

StoreScreenEnv (); 


TurnOf fCross - Restores the graphics system back the way it was before 

the cross-hairs were turned on and turns the cross-hairs 


off* If menus were turned on before TurnOnCross was 
called, they are turned on again. 

*************************l!**-k-k**-k-kifkifk-k*-k-k1fk*-k*ifk-k*-k*-k-k-kic-k-k-k*iri,itic*i,i,i,i r i,i, j 

TurnOf fCross () 

{ 

CrossOn = FALSE; 

RetrieveScreenEnv (); 
if (MenusWereOpen) { 

MenusWereOpen = FALSE; 
openmenus (); 

} 






GetLineCross - Causes the cross-hair to be displayed for the selection 

of a LINE in three-dimensional space. The cross-hair 
follows the mouse pointer until the user clicks one of 
the buttons. If the button selected is the one expected, 


then the current position (screen coordinates) of the 
cross-hair is returned as parameters and the function 
takes on the value "TRUE". If the button selected is not 

the one expected, the function takes on the value 

"FALSE” . 


Arguments : 

button (Device) the button which the user is expected to press to 

select the line with. This parameter should take on one 
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of the following values: LEFTMOUSE, MIDDLEMOUSE, or 

RIGHTMOUSE (from file "/usr/include/device . h" . 
xpos, ypos — (int *) x and y screen coordinates of the cross-hair 

when the user presses the button specified in 

"button" . 

The values returned in these parameters only have 
meaning if the function returns "TRUE". 

Value Returned: (int) Actually, this is treated as a Boolean function. 

"TRUE" is returned if the user selected a line with the 

button specified in "button". "FALSE" is returned if 
either of the other two buttons was pressed. 

GetLineCross (button, xpos, ypos) 

Device button; 
int *xpos, *ypos; 

{ 

Device mx, my, oldmx, oldmy, val; 
int wind; 

Boolean changed; 

if (CrossOn) { 
changed = TRUE; 

mx = (int) getvaluator (MOUSEX) ; 
my = (int) getvaluator (MOUSEY); 
do { 

if ((wind = WhichWindow (mx, my)) != -1 && changed) { 
cursoff (); 
color (0) ; 
clear ( ) ; 

DrawPrimaryCross (wind, mx, my) ; 
curson () ; 

} 

oldmx = mx; 
oldmy = my; 

mx = (int) getvaluator (MOUSEX); 
my = (int) getvaluator (MOUSEY); 
changed = (mx != oldmx) || (my != oldmy); 

} while (!qtest()); 
if (qread (&val) == button) { 

*xpos — mx; 

*ypos = my; 
while (!qtest()); 
qreset ( ) ; 
return TRUE; 

} 

else 

{ 


while ( Iqtest () ) ; 
qreset ( ) ; 
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return FALSE; 


} 


} 


} 




GetPointCross Causes the cross-hair to be displayed for the selection 


of a POINT in three-dimensional space. The cross-hair 
follows the mouse pointer until the user clicks one of 
the buttons. If the button selected is the one 

expected, 

then the current position (screen coordinates) of the 
cross-hair is returned as paramenters and the function 
takes on the value "TRUE". If the button selected is 

not 

the one expected, the function takes on the value 

"FALSE". 


This routine assumes that the point to be selected has 
already been narrowed-down to a line by the use of 
"GetLineCross" . The coordinates of the line returned 
from "GetLineCross" may be passed to "GetPointCross” 
so that a single point on the line in space may be 
selected. 


Argument s : 

button (Device) the button which the user is expected to press to 

select the line with. This parameter should take on one 
of the following values: LEFTMOUSE, MIDDLEMOUSE, or 

RIGTHMOUSE (from file "/usr/include/device .h" . 
linex, liney (int) x and y screen coordinates of the point which 


corresponds to a line in 3d space. This is the line 

from which the final point returned is expected, 
xpos, ypos (int *) x and y screen coordinates of the point 

selected on the line defined by "linex" and "liney". 
When these two parameters are taken with "linex" and 
"liney", a single point in 3d space may be computed. 

Value Returned: (int) Actually, this is treated as a Boolean function. 

"TRUE" is returned if the user selected a line with the 


buton specified AND the mouse pointer was in a window 
in which the line from which the point was to be 

selected 

does not appear to be a point. If either of these 
criteria are not met, "FALES" is returned. 
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GetPointCross (button, linex, liney, xpos, ypos) 
Device button; ' 

int linex, liney, *xpos, *ypos; 

P®^ice mx, my , oldmx, oldiny, val; 
int wind, primewind; 

Boolean changed; 


} 


if (CrossOn) { 

primewind = WhichWindow (linex, liney) • 
changed = TRUE; ' 

mx = (int) getvaluator (MOUSEX); 
my = (int) getvaluator (MOUSEY); 
do { 

wind = WhichWindow (mx, my) ; 

if (wind != -1 && wind != primewind && changed) 
cursoff (); ^ ' 

color (0) ; 
clear ( ) ; 

DrawPrimary Cross (primewind, linex, liney) ; 
DrawSecondaryCross (primewind, wind, mx, my) ; 
curson () ; 1 

} 


oldmx = mx; 
oldmy = my; 

mx = (int) getvaluator (MOUSEX) ; 
my = (int) getvaluator (MOUSEY); 
changed = (mx != oldmx) | | (my != 
} while (! qtest ()); 
if (qread (&val) == button) { 

*xpos = mx; 

*ypos = my; 
while ( ! qtest ( ) ) ; 
qreset () ; 
return TRUE; 

} 

else 

( 


oldmy) ; 


while (! qtest ()); 
qreset (); 
return FALSE; 

} 

} 


{ 


/**************************^ H , 
DrawPrimaryCross - Draws the 


****************** 
primary cross for 


*********************** 
use in selecting a line. 


Arguments : 
wind — 
mx , my - - 


+ in wh ich the primary cross is to appear, 

(int) the x and y screen coordinates of the cross-hair. 
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************************************************************************/ 
DrawPrimaryCross (wind, mx, my) 
int wind, mx, my; 

{ 

int left, right, bottom, top, other; 
float ratio; 


if (wind ! = -1) { 

color (CROSSCOLOR) ; 
switch (wind) { 

case (FrontView) : 

GetWindowSides (FrontView, &left, &right, Sbottom, Stop) ; 
move2i (mx, top) ; 
gsync () ; 

draw2i (mx, bottom) ; 
move2i (left, my) ; 
draw2i (right, my) ; 

GetWindowSides (TopView, &left, Sright, Sbottom, Stop) ; 
move2i (mx, top) ; 
gsync () ; 

draw2i (mx, bottom) ; 

GetWindowSides (SideView, &left, &right, Sbottom, Stop) ; 
move2i (left, my); 
gsync ( ) ; 

draw2i (right, my) ; 
break; 

case (SideView) : 

GetWindowSides (SideView, &left, &right, Sbottom, Stop) ; 
move2i (mx, top) ; 
gsync (); 

draw2i (mx, bottom) ; 
move2i (left, my) ; 
draw2i (right, my) ; 

ratio = (float) (mx-left) / (float) (right-left) ; 
GetWindowSides (FrontView, &left, &right, Sbottom, &top) ; 
move2i (left, my) ; 
gsync (); 

draw2i (right, my) ; 

GetWindowSides (TopView, &left, &right, &bottom, Stop) ; 
other = bottom + (int) (ratio * (float) (top-bottom) ) ; 
move2i (left, other) ; 
gsync (); 

draw2i (right, other) ; 
break; 

case (TopView) : 

GetWindowSides (TopView, sleft, Sright, Sbottom, Stop) ; 
move2i (mx, top) ; 
gsync () ; 

draw2i (mx, bottom) ; 
move2i (left, my); 
draw2i (right, my); 


66 



} 


ratio - (float) (my-bottom) / (float) (top-bottom) ; 
G e tWind° w Sid es (FrontView, &left, Sright, Sbottom, &top) ; 
move 2 1 (mx, top) ; 
gsync _ () ; 

draw2i (mx, bottom) ; 

GetWindowSides (SideView, Sleft, Sright, Sbottom, Stop) ; 
other - left + (int) (ratio * (float) (right-left) ) ; 
move2i (other, top) ; 
gsync ( ) ; 

draw2i (other, bottom) ; 
break; 
default : 
break; 


/********************** 
DrawSecondaryCross - 


*************************** 
Draws the secondary cross 
point. 


*********************** 
for use in selecting a 


Arguments ; 

primewind -- (int) window in which the primary cross is located, 
mx, my (mt) the x and y screen coordinates of the secondary 

cross-hair. 

************************************************** i ,* i , i ' i ' i ' i ' i ' i ' i ' i ' i ' iti ' i ' i ' i ' i ' i ' i ' i ' it 
DrawSecondaryCross (primewind, wind, mx, my) 
int primewind, wind, mx, my; 

int left, right, bottom, top, other; 
float ratio; 

if (wind != -1 && primewind != -1) { 
color (CROSSCOLOR) ; 
switch (primewind) { 
case (FrontView) : 
switch (wind) { 
case (SideView) : 

GetWindowSides (SideView, fileft, Sright, &bottom, Stop) ; 
move2i (mx, top) ; ' ' 

gsync () ; 

draw2i (mx, bottom) ; 

ratio = (float) (mx-left) / (float) (right-left) ; 

GetWindowSides (TopView, Sleft, &right, Sbottom, stop); 

othe ^.~ + (int) (ratio * (float) (top-bottom) ) ; 
move2i (left, other); 
gsync (); 

draw2i (right, other); 
break; 

case (TopView) : 

GetWindowSides (TopView, sleft, Sright, ^bottom, Stop) ; 
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my) ; 


} 


} 


move2i (left, 
gsync (); 
draw2i (right, 
ratio = (float) 
GetWindowSides 
other = left + 
move2i (other, 
gsync (); 
draw2i (other, 
break; 
default : 
break; 


my) ; 

(my-bottom) / (float) (top-bottom) ; 
(SideView, &left, &right, Sbottom, 
(int) (ratio * (float) (right-left) ) 
top) ; 

bottom) ; 


Stop) ; 


break; 

case (SideView) : 

GetWindowSides (FrontView, &left, &right 
move2i (mx, top) ; 
gsync (); 

draw2i (mx, bottom) ; 

GetWindowSides (TopView, &left, &right, 
move2i (mx, top) ; 
gsync () ; 

draw2i (mx, bottom) ; 
break; 

case (TopView) : 

GetWindowSides (FrontView, &left, &right 
move2i (left, my) ; 
gsync (); 

draw2i (right, my) ; 

GetWindowSides (SideView, Sleft, Sright, 
move2i (left, my) ; 
gsync ( ) ; 

draw2i (right, my) ; 
break; 
default : 
break; 


, Sbottom, Stop) ; 


&bottom, Stop) ; 


, Sbottom, Stop) ; 


Sbottom, stop) ; 


/****************** 
StoreScreenEnv - 


********************i'i'i r i,i'i'i'i' i ' i , i ' i ' i ' i ' i ' ifi ' i 'j' 

Stores the current graphic environment 
or cross-hairs can be drawn. 


*************** 
so popup menus 


***************** 
StoreScreenEnv () 
{ 






zbuffer (FALSE) ; 
zclear () ; 

savecolor = getcolor (); 
savemask = getwritemask () ; 
getviewport (&llx, &urx, &lly, &ury) ; 
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pushmatrix (); 
viewport (0, 1023, 0, 767); 
ortho2 (-0.5, 1023.5, -0.5, 767.5); 
wrxtemask (MASKVALUE) ; 




/*********** ********************** ************^ aa ^^ A) 

RetneveScreenEnv - Retrieves a stored graphic environment after popup 

menus or cross-hairs have been displayed. 

pi^8^^T‘“*“*“****“**““********“““******“**““*V 


cursoff () ; 
color (0) ; 
clear ( ) ; 
popmatrix () ; 
color (savecolor) ; 
writemask (savemask) ; 
viewport (llx, urx, lly, ury) ; 
zbuffer (TRUE) ; 
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Appendix A. 6 Primitive Rigid Body Generator 

/**?r******************************************************************** 

Filename: generator. c 

by Tim Thompson 

Purpose: This package is used to generate several different types of 

Drimitiv^ohW? S ^ 0r f g ® in the winged edge database. These 
primitive objects include: cylinders, pipes, spheres 

parallelepipeds, boxes, cubes; and coAes spheres, 

anJ 1 ?!^ 6 £w d hod . ies generated my have any color and may be 
any size, their orientations are always the same. To change 

h . bhe orientations, a transform should be added to the obiect 
which contains the rigid body. ooject 

Functions Provided: BuildColorMap () 

GenBox () 

GenCone () 

GenCube ( ) 

GenCylinder () 

GenParallelepiped () 

GenPipe () 

GenSphere () 

♦include "defs.h" 

♦include "dbdefs.h" 

/*GenCvlindp>*****r ************************************************ ******* 

Cylinder - Generates a winged edge database representation of a 

cylinder; The cylinder is oriented with its axis along 

v=n 7 Tha base of the cylinder is in the plane 

The top of the cylinder is in the plane y=height. 

The cylinder will be represented with "polys" number of 

polygons around the outer edge. 

Arguments : 

C ° lr “ fuf ^ ° f the baSe ValueS 

P ° lyS “ < ( oSrle2 U ^rt r ,°of P ?if“ 1 S i ^er Se t0 ref>reSent the <"*•«• 

radius - (float, ^dius^the cylinder. , The cylinder will b e 

i'teSd’aJonfthe^y-aJis! 11 """ 0r ^ dlStanCe iC uil1 

flags (int) reserved for future use. 


Value Returned: (OBJECT *) pointer to the 


new cylinder. 




OBJECT *GenCylinder (coir, polys, radius, height, flags) 
float radius, height; 
int coir, polys, flags; 

{ float inc, xl, x2, zl, z2, cpi, cpj, cpk, length, ni, nk 
register cnt, i; 

VERTEX *vtxlow [MaxPolys] , *vtxhigh [MaxPolys] ; 

CORNER *corn; 

ATTRIBUTE *attr; 

OBJECT *RigidBody; 

RigidBody = NewRb (UniqueRbNum ()); 

inc = (2 . 0*PI/ (float) polys) ; 
xl = radius; 
z 1 = 0.0; 

for (i=0; i<polys; i++) { 

vtxlow [ i ] = NewVertex (); 

vtxhigh [ i ] = NewVertex (); 

} 

SetVertex (vtxlow[0], xl, 0.0, zl) ; 

SetVertex (vtxhigh [0], xl, height, zl) ; 

cpi = sin (inc) *radius; 
cpk = radius-cos (inc) *radius; 
length = sqrt(cpi*cpi + cpk*cpk) ; 
for (cnt=l; cnt<=polys; cnt++) { 
x2 = cos ( (float) cnt*inc) *radius; 
z2 = sin ( (float) cnt*inc) *radius; 
if (cnt < polys) { 

SetVertex (vtxlow[cnt] , x2, 0.0, z2) ; 

SetVertex (vtxhigh [cnt ] , x2, height, z2) ; 

} 

cpi = z2 - zl; 
cpk = xl - x2; 

ni = cpi/ length; 
nk = cpk/ length; 

attr = NewAttribute (); 

SetAttribute (attr, ni, 0.0, nk, coir, flags); 
corn = NewCornO; 

SetCorner (corn, vtxhigh [cnt-1] ) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCornO; 

SetCorner (corn, vtxhigh [cnt<polys ? cnt:0]); 
AddCorner (RigidBody, corn) ; 

corn = NewCornO; 

SetCorner (corn, vtxlow [cnt <polys ? cnt:0]); 
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AddCorner (RigidBody, corn) ; 


corn = NewCorn(); 

SetCorner (corn, vtxlow [cnt-1 ] ) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

xl = x2; 
z 1 = z 2 ; 

} 

attr = NewAttribute (); 

SetAttribute (attr, 0.0, 1.0, 0.0, coir, flags); 
for (cnt = polys - 1; cnt >= 0; cnt — ) { 

corn = NewCorn (); 

SetCorner (corn, vtxhigh (cnt ] ) ; 

AddCorner (RigidBody, corn) ; 

} 

AddPolygon (RigidBody, attr) ; 
attr = NewAttribute (); 

SetAttribute (attr, 0.0, -1.0, 0.0, coir, flags); 

for (cnt =0; cnt < polys; cnt++) { 
corn = NewCorn ( ) ; 

SetCorner (corn, vtxlow [cnt ]) ; 

AddCorner (RigidBody, corn) ; 

} 

AddPolygon (RigidBody, attr) ; 
return RigidBody; 


/************************************************************************ 
GenPipe - Generates a winged edge database representation of a pipe. 

(A pipe is a hollow cylinder.) The’ pipe is oriented with its 

axis along the y-axis. The base of the pipe is in the 
plane y=0. The top of the pipe is in the plane y=height. 

The pipe will be represented with "polys" number of polygons 
around the outer and inner edges. 


Arguments : 

coir -- (int) base color value (should be one of the base values 
defined in file "defs.h". 

polys -- (ind) number of polygons to use to represent the curved 
parts of the pipe. 

outradius — (float) outer radius of the pipe, 
inradius — (float) inner radius of the pipe. 

height -- (float) height of the pipe or the distance it will extend 
along the y-axis. 

flags — (int) reserved for future use. 
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Value Returned: 


(OBJECT *) pointer to the new pipe. 


************************************************************************/ 
OBJECT *GenPipe (coir/ polys, outradius, inradius, height, flags) 
int coir, polys, flags; 
float outradius, inradius, height; 

{ 

float cosvall, cosval2, sinvall, sinval2, 

xoutl, xout2, zoutl, zout2, xinl, xin2, zinl, zin2, 
cpi, cpk, length, ni, nk, inc; 
register cnt, i; 

VERTEX *vhighin [MaxPolys] , *vhighout [MaxPolys] , *vlowin [MaxPolys ] , 
*vlowout [MaxPolys] ; 

CORNER *corn; 

ATTRIBUTE *attr; 

OBJECT *RigidBody; 

inc =2.0 * PI/ (float ) polys; 

RigidBody = NewRb (UniqueRbNum ()); 

cosvall = 1.0; 
sinvall = 0.0; 
xoutl = outradius; 
zoutl = 0.0; 
xinl = inradius; 
zinl = 0.0; 

for (i=0; i<polys; i++) { 

vhighin[i] = NewVertexO; 
vhighout[i] = NewVertexO; 
vlowin[i] = NewVertexO; 
vlowout[i] = NewVertexO; 

} 

SetVertex (vhighin[0] , xinl , height, zinl ); 

SetVertex (vhighout [0 ] , xoutl, height, zoutl); 

SetVertex (vlowin[0] , xinl ,0.0 , zinl ); 

SetVertex (vlowout[0] , xoutl, 0.0 , zoutl); 

cpi = sin (inc) *outradius; 

cpk = outradius - cos (inc) *outradius; 

length = sqrt (cpi*cpi + cpk*cpk) ; 

for (cnt=l; cnt<=polys; cnt++) { 
cosval2 = cos ((float) cnt * inc); 
sinval2 = sin ((float) cnt * inc); 

xout2 = cosval2 * outradius; 
zout2 = sinval2 * outradius; 
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xin2 = cosval2 * inradius; 
zin2 = sinva!2 * inradius; 


if (cnt < polys) { 

SetVertex (vhighin [cnt ] , 

SetVertex (vhighout [cnt] , 
SetVertex (vlowin[cnt] , 
SetVertex (vlowout [cnt ] , 

} 


xin2 , height, 
xout2, height, 
xin2 ,0.0 , 
xout2, 0.0 , 


zin2 ) ; 
zout2) ; 
zin2 ) ; 
zout2) ; 


cpi = zout2 - zoutl; 
cpk = xoutl - xout2; 


ni = cpi /length; 
nk = cpk/ length; 


attr = NewAttribute (); 

SetAttribute (attr, ni, 0.0, nk, coir, flags); 


corn = NewCorn (); 

SetCorner (corn, vlowout [cnt-1 ]) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vhighout [cnt-1 ]) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vhighout [cnt<polys ? cnt : 0]); 
AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vlowout [cnt <polys ? cnt : 0]); 
AddCorner (RigidBody, corn') ; 

AddPolygon (RigidBody, attr) ; 

attr = NewAttribute (); 

SetAttribute (attr, -ni, 0.0, -nk, coir, flags); 

corn = NewCorn (); 

SetCorner (corn, vlowin [cnt-1 ]) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vlowin [cnt <polys ? cnt : 0]); 
AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vhighin [cnt <polys ? cnt : 0]); 
AddCorner (RigidBody, corn) ; 
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corn = NewCorn () ; 

SetCorner (corn, vhighin [cnt-1 ] ) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

attr = NewAttribute (); 

SetAttribute (attr, 0.0, 1.0, 0.0, coir, flags); 
corn = NewCorn () ; 

SetCorner (corn, vhighout [cnt-1] ) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vhighin [cnt-1] ) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vhighin [cnt<polys ? cnt : 0]); 
AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vhighout [cnt <polys ? cnt : 0]); 
AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

attr = NewAttribute () ; 

SetAttribute (attr, 0.0, -1.0, 0.0, coir, flags); 
corn = NewCorn (); 

SetCorner (corn, vlowout [cnt-1 ]) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vlowout [cnt <polys ? cnt : 0]); 
AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vlowin [cnt<polys ? cnt : 0]); 
AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vlowin [cnt-1 ]) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

xoutl = xout2; 
zoutl = zout2; 
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} 


return RigidBody; 


7 ^**rr**************************************************************** 

en p ere Generates a winged edge database representation of a sphere. 

The sphere is oriented with its center located at the 
The sphere will be represented with "polys" number of 

around any "latitude" line as well as around any "longitude" 
line . 


origin. 

polygons 


Arguments : 

coir — (int) base color value (should be one of the base values 
defined in file "defs.h". s 

polys (int) number of polygons to use to represent any "slice" of 

the sphere between two lines of "latitude", 
radius — (float) the radius of the sphere. (The sphere will be 
inscribed within this radius.) 
flags — (int) reserved for future use. 

Value Returned: (OBJECT *) pointer to the new sphere. 

OBJECT GenSphere (coir, polys, radius, flags) ' 

mt coir, polys, flags; 
float radius; 

{ 

register lat, longitude; 

Sat SSSpI; lengthl ni^n jf nk; “ 2l ° Wl ' 2l0 “ 2 ' 
float inc; radlow, radhigh; 
register FirstFlag, LastFlag; 

* vtx [MaxPolys] , *vtxa, *vtxb, *vtxO; 

CORNER *corn; 

ATTRIBUTE *attr; 

OBJECT *RigidBody ; 

RigidBody = NewRb (UniqueRbNum () ) ; 

FirstFlag = TRUE; 

LastFlag = FALSE; 

inc= (2 . 0*PI/ (float) polys) ; 

for (lat= (int) (-(polys/4)); lat< (int ) (polys/4) ; lat++) ( 
ylow sm ( (float) (lat) *inc) *radius; 
yhigh - sin ((float) (lat+1) *inc) *radius; 
radlow = cos ((float) (lat) *inc) *radius; 
radhigh = cos ( (float) (lat + 1) *inc) *radius; 
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if (lat== (int) (polys/4) -1) { 

LastFlag = TRUE; 
vtxa = NewVertexO; 

} 

if (FirstFlag) { 

vtxa = NewVertexO; 

SetVertex (vtxa, 0.0, ylow, 0.0); 

for ( longitude=0 ; longitude < polys; longitude++) 
vtx [ longitude ] = vtxa; 

for (longitude=0; longitude < polys; longitude++) { 
xlowl = cos ( (float) longitude*inc) *radlow; 
xlow2 = cos ( (float) (longitude+1) *inc) *radlow; 

zlowl = sin ( (float) longitude*inc) *radlow; 

zlow2 = sin ( (float) (longitude+1) *inc) *radlow; 

xhighl = cos ( (float) longitude*inc) *radhigh; 
xhigh2 = cos ( (float) (longitude+1) *inc) *radhigh; 
zhighl = sin ( (float) longitude* inc) *radhigh; 
zhigh2 = sin ( (float ) (longitude+1) *inc) *radhigh; 

if (longitude == 0) { 
vtxO = vtx [ 0 ] ; 

} 

if (! LastFlag) { 

if (longitude == 0) { 

vtxa = NewVertex (); 

SetVertex (vtxa, xhighl, yhigh, zhighl); 

} 

vtxb = vtxa; 

} 

if (longitude < polys-1) { 
if (iLastFlag) { 

vtxa = NewVertex () ; 

SetVertex (vtxa, xhigh2, yhigh, zhigh2) ; 

} 

else 

{ 

if (ILastFlag) { 
vtxa = vtx [0] ; 

} 

} 

if (FirstFlag) { 

cpi = (yhigh-ylow) * ( (zhigh2-zlowl) - (zhighl-zlowl) ) ; 

cpj = (zhighl-zlowl) * (xhigh2-xlowl) - (xhighl-xlowl) * (zhigh2-zlowl) 
cpk = (yhigh-ylow) *( (xhighl-xlowl) - (xhigh2-xlowl) ) ; 

} 

else 

{ 
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cpi = (yhigh-ylow) * (zlow2-zlowl) ; 

cpj = (zhighl-zlowl) * (xlow2-xlowl) - (xhighl-xlowl) * (zlow2-zlowl) ; 
cpk — (ylow-yhigh) * (xlow2-xlowl ) ; 

} 

length = sqrt (cpi*cpi+cpj*cp j+cpk*cpk) ; 

ni = cpi/length; 
nj = cpj/length; 
nk = cpk/ length; 

attr = NewAttribute (); 

SetAttribute (attr, ni, nj, nk, coir, flags); 

corn = NewCorn(); 

SetCorner (corn, vtxa) ; 

AddCorner (RigidBody, corn) ; 

if (lLastFlag) { 
corn = NewCornO; 

SetCorner (corn, vtxb) ; 

AddCorner (RigidBody, corn) ; 

} 

corn = NewCornO; 

SetCorner (corn, vtx [ longitude] ) ; 

AddCorner (RigidBody, corn) ; 

if ( ! FirstFlag) { 
corn = NewCornO; 

SetCorner (corn, longitude< (polys-1) ? vtx [ longitude+1 ] : vtxO); 

AddCorner (RigidBody, corn) ; 

} 

AddPolygon (RigidBody, attr) ; 
if (lLastFlag) { 

vtx [longitude] = vtxb; 

} 

} 

FirstFlag = FALSE; 

} 

return RigidBody; 

} 

GenParallelepiped - Generates a winged edge database representation of a 

parallelepiped- The parallelepiped is oriented such 

that one corner is always at the origin with the 
sides of the parallelepiped extending down the 
positive x, y, and z axes. The "top" and "bottom" 
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of the parallelepiped are always parallel with the 
x-z plane. The angle that the other sides make with 

respect to the x— y plane and the y- z plane are 
accepted as arguments. 


^ coir — (int) base color value (should be one of the base values 

defined in file "defs.h". , . . .. 

length — (float) distance the parallelepiped will extend along the 


width 

height 


positive x axis. 

(float) distance the parallelepiped will extend along the 

positive z axis. , , 

(float) distance the parallelepiped will extend along the 


positive y axis. 

xyangle — (float) angle the side of the parallelepiped makes with 

the x-y plane. , , . . . 

yzangle — (float) angle the side of the parallelepiped makes with 

the y-z plane. 

flags — (int) reserved for future use. 

Value Returned: (OBJECT *) pointer to the new parallelepiped. 


******************************** 
OBJECT *GenParallelepiped (coir, 


****************************************/ 
length, width, height, xyangle, yzangle, 


flags) 

int coir, flags; 

float length, width, height, xyangle, yzangle; 

float cpi, cpj, cpk, ni, nj, nk, vlength, xshift, zshift; 
VERTEX *vtx_000, *vtx_0y0, *vtx_xyO, *vtx_x00, 

*vtx_00z , *vtx_0yz, *vtx_xyz, *vtx_xOz; 

CORNER *corn; 

ATTRIBUTE *attr; 

OBJECT *RigidBody ; 


RigidBody = NewRb (UniqueRbNum ( ) ) ; 

xshift = height * tan (yzangle*PI/180 . 0) ; 
zshift = height * tan (xyangle*PI/180 . 0) ; 


vtx__000 
vtx_0y0 
vtx_xy0 
vtx_x00 
vtx_00z 
vtx_0yz 
vtx_xyz 
vtx xOz 


= NewVertex (); 
= NewVertex (); 
= NewVertex () ; 
= NewVertex (); 
= NewVertex (); 
= NewVertex (); 
= NewVertex (); 
= NewVertex () ; 
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SetVertex 

SetVertex 

SetVertex 

SetVertex 

SetVertex 

SetVertex 

SetVertex 

SetVertex 


(vtx_000, 0.0, 0.0, 0.0); 

(vtx OyO, xshift, height, zshift); 

(vtx - xy0, length+xshift, height, zshift); 

(vtx - x00, length, 0.0, 0.0); 

(vtx OOz, 0.0, 0.0, width); 

(vtx Oyz, xshift, height, width+zshift); 

(vtx xyz, length+xshift, height, width+zshift) 
(vtx - xOz, length, 0.0, width); 


cpj = -tan (xyangle*PI/180 . 0) ; 
vlength = sqrt(cpj*cpj + 1.0); 


nj = cpj /vlength; 
nk = 1. 0 /vlength; 

/* Generate Front */ 
attr = NewAttribute () ; 

SetAttribute (attr, 0.0, nj, nk, coir, flags); 

corn = NewCorn (); 

SetCorner (corn, vtx_00z) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_0yz) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_xyz) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vtx_x0z) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

/* Generate Back */ 
attr = NewAttribute () ; 

SetAttribute (attr, 0.0, -nj, -nk, coir, flags); 

corn = NewCorn () ; 

SetCorner (corn, vtx_000) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vtx_x00) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_xy0) ; 

AddCorner (RigidBody, corn) ; 
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corn = NewCorn () ; 

SetCorner (corn, vtx_0y0) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

cpj = -tan (yzangle*PI/180 . 0) ; 
vlength = sqrt(1.0 + cpj*cpj) ; 

ni = 1.0/vlength; 
nj = cpj/vlength; 

/* Generate Right End */ 
a ttr = NewAttribute (); 

SetAttribute (attr, ni, nj, 0.0, coir, flags); 

corn = NewCorn (); 

SetCorner (corn, vtx_x0z); 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_xyz) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn ( ) ; 

SetCorner (corn, vtx_xy0) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 

SetCorner (corn, vtx_x00) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

/* Generate Left End */ 
a ttr = NewAttribute () ; 

SetAttribute (attr, -ni, -nj, 0.0, coir, flags); 

corn = NewCorn ( ) ; 

SetCorner (corn, vtx_000) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_0y0); 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_0yz); 

AddCorner (RigidBody, corn) ; 

corn = NewCorn () ; 
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SetCorner (corn, vtx_00z) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

/* Generate Top */ 
attr = NewAttribute (); 

SetAttribute (attr, 0.0, 1.0, 0.0, coir, flags); 

corn = NewCorn (); 

SetCorner (corn, vtx_0y0) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn ( ) ; 

SetCorner (corn, vtx_xy0) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_xyz) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_0yz) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

/* Generate Bottom */ 
attr = NewAttribute () ; 

SetAttribute (attr, 0.0, -1.0, 0.0, coir, flags); 

corn = NewCorn () ; 

SetCorner (corn, vtx_000) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_00z); 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_x0z) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCorn (); 

SetCorner (corn, vtx_x00) ; 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 

return RigidBody; 
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/ ***** ***I**r***********”*******************************************««* 

X Th2 6 K ate ^ a w -f- nged ed 9 e database representation of a box. 

The box is oriented such that one corner is always at the 

x^y^an^z axes Sid6S ° f th6 b ° X extendin 9 down the positive 

Arguments : 

COlr 5 a ? e ^?} or value Should be one of the base values 

defined in file "defs.h". 

length (float) distance the box will extend along the positive 

X 3.X is. 

width (float) distance the box will extend along the positive 

height — (float) distance the box will extend along the positive 

y gaio « 

flags -- (int) reserved for future use. 


Value Returned: (OBJECT *) pointer to the new box. 


0B^r*r:^r*r *r**r***********************************************v 

?nf coir? ?!ags; ' " 9th ' Width ' height ' fla 9 s > 

flo3t length, width, height; 

return GenParallelepiped (coir, length, width, height, 0.0, 0.0, flags); 

} 

^Gen^r***:::;”******”********************************.**.. ......... 

GenCube Generates a winged edge database representation of a cube. 

e cube is oriented such that one corner is always at the 
origin with the sides of the cube extending down ^hf positive 

x, y, and z axes. 

Arguments : 

C ° lr ~~ 5 aae *°}° r Value {should be one of the base values 

defined m file "defs.h". es> 

length — (float) distance the cube will extend along each of the 
positive x, y, and z axes, 
nags - (int) reserved for future use. 


Value Returned: (OBJECT *) pointer to the new cube, 


— r * 

object GenCube (coir, length, flags) 
mt coir, flags; 
float length; 

{ 

return GenParallelepiped (coir, length, length, length, 0.0, 0.0, flags); 

} 
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/************************************************************************ 
GenCone - Generates a winged edge database representation of a cone. 

The , _. . - 

cone is oriented with its axis along the y-axis. The base or 

the cone is in the plane y=0. The tip of the cone is located 

at the point y=height. The cone is represented with "polys" 
number of polygons around the outer (curved) side. 


Arguments: 

coir — (int) base color value (should be one of the base values 
defined in file "defs.h". 

polys — (int) number of polygons to use to represent the outside 
(curved part) of the cone, 
radius — (float) radius of the base of the cone. 

height — (float) height of the cone or the distance it will extend 
along the y-axis. 

flags — (int) reserved for future use. 

Value Returned: (OBJECT *) pointer to the new cone. 






OBJECT *GenCone (coir, polys, radius, height, flags) 
int coir, polys, flags; 
float radius, height; 

{ 

register cnt; 

float inc, cpi, cpj, cpk, length, xl, x2, zl, z2; 
VERTEX *vtx [MaxPolys] , *top; 

CORNER *corn; 

ATTRIBUTE *attr; 

OBJECT *RigidBody; 


RigidBody = NewRb (UniqueRbNum ()); 


inc = (2.0*PI/ ( float ) polys) ; 

cpi = height * radius * sin (inc); 

cpj = radius * radius * sin (inc); 

cpk = height * (radius - cos (inc) *radius) ; 

length = sqrt (cpi*cpi + cpj*cpj + cpk*cpk) ; 


vtx[0] = NewVertexO; 

SetVertex (vtx[0], radius, 0.0, 0.0); 
top = NewVertexO; 

SetVertex (top, 0.0, height, 0.0); 

for (cnt=0; cnt < polys; cnt++) { 

xl = cos ((float) cnt * inc) * radius; 
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x2 = cos ((float) (cnt + 1) * inc) * radius; 
zl = sin ( (float) cnt * inc) * radius; 
z 2 = sin ((float) (cnt+1) * inc) * radius; 

cpi = height * (z2 - zl) / length; 
cpj = (xl *z2 - x2*zl) / length; 
cpk = height * (xl - x2) / length; 

attr = NewAttribute (); 

SetAttribute (attr, cpi, cpj, cpk, coir, flags) ; 

if (cnt<polys-l) { 

vtx [cnt + 1] = NewVertex ( ) ; 

SetVertex (vtx [cnt+1], x2, 0.0, z2) ; 


corn = NewCorn(); 

SetCorner (corn, top) ; 

AddCorner (RigidBody, corn) ; 

corn = NewCornO; 

SetCorner (corn, vtx[cnt]); 

AddCorner (RigidBody, corn) ; 

corn = NewCornO; 

SetCorner (corn, cnt< (polys-1) ? vtx [cnt+1] : vtx[0]); 
AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 


attr = NewAttribute () ; 

SetAttribute (attr, 0.0, -1.0, 0.0, coir, flags); 

for (cnt=polys-l; cnt>=0; cnt — ) { 

corn = NewCornO; 

SetCorner (corn, vtx [cnt] ); 

AddCorner (RigidBody, corn) ; 

AddPolygon (RigidBody, attr) ; 
return RigidBody; 

} 

/* 

GenTriangle (coir, xl, yl, zl, x2, y2, z2, x3, y3, z3, sv, v) 
int coir; 

float xl, yl, zl, x2, y2, z2, x3, y3, z3; 
vector sv, v; 

{ 

float ax, ay, az, bx, by, bz, cpi, cpj, cpk, length, shade; 
pushmatnx (); 
scale (sv.i, sv.j, sv.k); 
ax = x2-xl ; 
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ay = y2-yl; 
az = z2-zl; 

bx = x3-xl; 
by = y3-yl; 
bz = z3-zl; 

cpi = ay*bz - az*by; 
cpj = az*bx - ax*bz; 
cpk = ax*by - ay*bx; 

length = sqrt (cpi*cpi + cpj*cpj + cpk*cpk) ; 

shade = (cpi*v.i + cpj*v.j + cpk*v.k) /length* (float) (span-1) ; 

color (coir + abs ( (int) shade) ) ; 

pmv (xl, yl, zl) ; 

pdr (x2, y2, z2) ; 

pdr (x3, y3, z3) ; 

pclos (); 


popmatrix (); 

} 


GenParallelogram (coir, xl, yl, zl, x2, y2, z2, x3, y3, z3, sv, 
int coir; 

float xl, yl, zl, x2, y2, z2, x3, y3, z3; 
vector sv, v; 

Genriangle (coir, xl, yl, zl, x2, y2, z2, x3, y3, z3, sv, v) ; 
GenTriangle (coir, x2-xl+x3, y2-yl+y3, z2— zl+z3, x3, y3, z3, 

x2 , y2, z2 , sv, v) ; 


} 


v) 


GenRectangle (coir, xl, yl, x 4, y4, sv, v) 
int coir; 

float xl, yl, x4, y4; 
vector sv, v; 

GenParallelogram (coir, xl, yl, 0.0, x4, yl, 0.0, xl, y4, 0.0, sv, v) ; 

} 

GenSquare (coir, x, y, length, sv, v) 
int coir; 

float x, y, length; 
vector v; 

GenRectangle (coir, x, y, x+length, y+length, sv, v) ; 

} 

*/ 
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Appendix A. 7 Vector Manipulation Functions 


/************************************************************************ 
Filename: vectors. c 

by Timothy A. Thompson 

Purpose: The purpose of this package is to provide a set of vector 

manipulation functions. These functions include the rotation 
and translation of vectors and of the global viewing angle. _ 
This package also implements a stack of vectors so the viewing 
vector can be saved during these transformations. 


Functions Provided: PopAll () 

PopVector () 
PushAll () 
PushVector () 
RotateAll () 
RotateMulti () 
RotateMultiEnv {) 
RotateVector () 
TranslateMulti () 
TranslateVector () 






♦include "defs.h" 

vector VectorStack [VectStackSize] ; 
int TOP = 0 ; 


/* Top of vector stack */ 


/***************************************** 
PushAll - Pushes the vector, "v" on 

current 

graphic transformations with a 


********************** 
the vector stack AND 

"pushmatrix" . 


********* 
saves the 


Arguments: 

v — (vector) vector to be saved. 




**************************/ 


PushAll (v) 
vector v; 

{ 

pushmatrix () ; 
PushVector (v) ; 




PopAll - Pops a vector of the top of the vector stack and places it in 


AND retrieves a previously stored graphic transformation via a 
"popmatrix" . 
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Arguments: . . . 

v — (vector *) pointer to vector to be returned 






PopAll (v) 
vector *v; 


popmatrix (); 
PopVector (v) ; 


/*********************************************************************?** 
PushVector - Pushes a vector on the vector stack. An error message is 

printed to standard error if the stack is full. (The stac 


is the same size as the transformation stack used by 
"pushmatrix" and "popmatrix". 


Arguments: 

v — (vector) vector to save. 






PushVector (v) 
vector v; 

{ 

register temp; 


if (TOP == VectStackSize - 1) 

fprintf (stderr, "\nVECTORS: Vector stack overflow\n” ) ; 

else { 

TOP++; 

VectorStack [TOP] = v; 

} 

} 


/i, *********************************************************************** 

PopVector - Pops a vector off of the vector stack. An error message is 
printed to standard error if the stack is empty. 


Arguments : 

v — (vector *) pointer to the 
************************************* 


vector returned from stack. 
***********************************/ 


PopVector (v) 
vector *v; 

{ 

if (TOP > 0) { 

*v = VectorStack [TOP]; 
TOP — ; 

} 

else 
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fprintf (stderr, "\nVECTORS: Attempted to pop empty Vector StackAn ); 

} 

/♦a********************************************************************** 
RotateMulti - Rotates a vector around all three vertices. 


Arguments : 

v — (vector *) 
rotx, roty, rotz 

respectively . 


pointer to vector to modify. 

(short int) amount to rotate (in tenths of a 
degree) around the x, y, and z axes, 






RotateMulti (v, rotx, roty, rotz) 
vector *v; 

short rotx, roty, rotz; 

RotateVector (v, rotx, 'x'); 
RotateVector (v, roty, 'y'); 
RotateVector (v, rotz, ' z' ) ; 


} 


/ 


****************** 
RotateMultiEnv - 






Rotates the environment around all axes and rotates a 
vector around each axis IN THE OPPOSITE DIRECTION. 

This routine should be used to rotate something on the 
screen instead of the built in "rotate" function when 
there is a viewing vector or light-source vector which 
must not change orientation. 


Arguments : 

v — (vector *) 
rotx, roty, rotz 

respectively . 


pointer to vector to rotate (backwards) . 

(short int) amount to rotate (in tenths of a 
degree) around the x, y, and z axes, 






RotateMultiEnv (v, rotx, roty, rotz) 
vector *v; 

short rotx, roty, rotz; 

{ 

RotateAll (v, rotx, 'x'); 
RotateAll (v, roty, 'y'); 
RotateAll (v, rotz, ' z' ) ; 

) 


/************************************************************************ 
RotateAll - Rotates a vector the environment around a given axis and 

rotates a vector IN THE OPPOSITE DIRECTION. This routine 

should be used to rotate something on the screen . instead of 

the built in "rotate" function when there is a viewing vector 
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or light-source vector which must not change orientation. 


Arguments : 
v — 
rot - 
axis 


(vector *) pointer to vector to rotate (backwards) . 
(short int) amount to rotate (in tenths of a degree) . 
(char) axis about which to rotate. 






RotateAll (v, rot, axis) 
vector *v; 
short rot; 
char axis; 

{ 

rotate (rot, axis) ; 
RotateVector (v, -rot, axis); 

} 


/*********************************************************************** 
RotateVector - rotates a vector about a given axis by a given amount. 


Arguments : 

v — (vector *) pointer to vector to rotate. 

rot — (short int) amount to rotate (in tenths of a degree) . 
axis — (char) axis about which to rotate. 






RotateVector (v, rot, axis) 
vector *v; 
short rot; 
char axis; 

{ 

float ni, nj, nk, length; 


switch (axis) { 
case ' x' : 

n j = v->j * cos ( (float) rot*convert) 


v->k * sin ( (float) rot ^convert ) 


nk = v-> j * 


sin ( (float ) rot*convert) + v->k * 


cos ( (float) rot*convert ) 


v->j = nj; 
v->k = nk; 
break; 
case ' v' • 

ni = v->k * sin (( float ) rot *convert) + v->i * cos (( float) rot*convert) 
nk = v->k * cos (( float ) rot*convert) - v->i * sin ( (float ) rot*convert) 


v->i = ni; 
v->k = nk; 
break; 
case ' z' : 
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ni = v->i * cos ( (float) rot*convert) - v->j * sin (( float ) rot*convert) ; 
nj = v->i * sin ( (float) rot*convert) + v->j * cos ( (float ) rot *convert) ; 


v->i = ni; 
v-> j = nj; 
break; 
default : 
break; 

length = sqrt (v->i * v->i + v-> j * v-> j + v->k * v->k) ; 
v->i = v->i / length; 

v->j = v->j / length; 

v->k = v->k / length; 

} 


/************************************************************************ 
Trans lateMulti - translate a vector along all three axes. 


Arguments: 

v — (vector *) pointer to vector to modify. 

dx, dy, dz — (float) distance to translate vector along the 

x, y, and z axes, respectively. 






Trans lateMulti (v, dx, dy, dz) 

vector *v; 

float dx, dy, dz; 

TranslateVector (v, dx, 'x'); 
TranslateVector (v, dy, ' y '); 
TranslateVector (v, dz, 'z'); 


} 


/************************************************** 
TranslateVector - translates a vector a given 

axis . 


distance 


************* 
along a given 


Arguments: 

v — (vector *) pointer to vector to modify, 
xlate — (float) distance to translate vector, 
axis — (char) axis along which to translate. 






TranslateVector (v, xlate, axis) 
vector *v; 
float xlate; 
char axis; 

{ 

switch (axis) { 
case ' x' : 

v->i += xlate; 
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break; 
case ' y' : 

v->j += xlate 
break; 
case ' z' : 

v->k += xlate 
break; 
default : 
break; 




Appendix A. 8 Kinematic Database 






/******************************* 

Filename: kindb.c 

by Timothy A. Thompson 

Purpose: This package implements what is called the "kinematic 

database". , . . . 

It includes routines to Load and Save scenes and obj > 
routines to create new objects, routines to add subobjects 
to objects, and routines to rename and scale objects. Tnis 
package also has routines to position and move objects by 
creating and changing transforms for the objects. 


Functions Provided: 


AddKObj () 

AddXform () 

LoadObj () 

NewKObj () 

NewXform () 

RenameKObj () 

SaveObj () 

SetKOb j_Rbody () 

Set KOb j_SubOb j () 
SetScale () 
SetXformRot () 

SetXf ormRotMult i () 
SetXformTrans () 

SetXf ormTransMulti 0 






#include "defs.h" 
♦include "dbdefs.h" 
♦include "kindefs.h" 


/Vic****************************************************************** 

SaveObj - Saves an object in one or more files. The name of the file 
is the same as the name of the object. 


Arguments : 

obj — (KOB J *) object to save. 


Value Returned: (An error code may be returned in the future) 






SaveObj (obj) 

KOBJ *ob j ; 

{ 

struct vertexrecord { 
VERTEX *vtx; 
int vertnum; 
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struct vertexrecord *next; 

} • 

typedef struct vertexrecord Vptr; 

FILE *fp, *fopen(); 

char f ilename [ 30 ] , tmpstr [71 ] ; 

KOBJ *tmp; 

XFORM *xtmp; 

FACE *ply; 

VERTEX * valid; 

int vertcount, coir, flags; 

float i, j, k, x, y, z; 

Vptr *head, *tail, *listptr; 

switch (obj->type) { 
case ' o' : 

strcpy (filename, "objlib/"); 
strcat (filename, obj->name) ; 
fp = fopen (filename, "w"); 
fprintf (fPf "0\n" ) ; 
tmp = ob j->obtype . subob j ; 
while (tmp) { 

fprintf (fp, "@\n") ; 
fprintf (fp, "%s\n" , tmp->name) ; 
fprintf (fp, "%f \n" , tmp->scale) ; 
xtmp = tmp->xform; 
while (xtmp) { 

fprintf (fp, "%c\n" , xtmp->type) ; 
fprintf (fp, "%c\n" , xtmp->axis) ; 
switch (xtmp->type) { 
case ' t ' : 

switch (xtmp->axis) { 
case ' x' : 
case ' y' : 

case ' z' : J . ^ . 

fprintf (fp, "%f \n" , xtmp->amt .dist) ; 

break; 
case ' a' : 

fprintf (fp, "%f %f %f\n", xtmp->amt . trans . x, 

xtmp->amt .trans .y, 
xtmp->amt .trans . z) 

break; 
default : 
break; 

) 

break; 
case ' r' : 

switch (xtmp->axis) { 
case ' x' : 
case ’ y' : 
case ' z' : 

fprintf (fp, "%d\n”, xtmp->amt .angle); 
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break; 
case ' a' : 

fprintf (fp, "%d %d %d\n", xtmp->amt . rot . x, 

xtrap->amt . rot .y, 

, xtmp->amt . rot . z ) ; 

break; 

default : 
break; 

} 

break; 
default : 
break; 

} 

xtmp = xtmp->next; 

} 

tmp = tmp->nextkob j ; 

} 

fclose (fp) ; 

tmp = ob j ->obtype . subob j ; 
while (tmp) { 

SaveObj (tmp) ; 
tmp = tmp->nextkob j ; 

} 

break; 

case ' r ’ : 

vert count = 0; 

ply = FirstFace (ob j->obtype . rbody) ; 
if (ply) { 

valid = GetVert (&x, & y, &z); 
if (valid) { 

head = tail = (Vptr *) malloc (sizeof (Vptr) ) ; 
if ( ! head) 

(stderr, "kindb.c: malloc failed in SaveObj (l)\n"); 

{ 

tail->vtx = valid; 
tail->vertnum = vertcount++; 
tail->next = NULL; 

} 

} 

} 

while (ply) { 

valid = GetVert (&x, &y, &z) ; 
while (valid) { 

for (listptr = head; listptr && listptr->vtx != valid;) 

listptr = listptr->next ; 
if ( ! listptr) { 

if ((listptr = (Vptr *) malloc (sizeof (Vptr) )) ==NULL) 

fprintf (stderr, "kindb.c: malloc failed in SaveObj <2)\n"); 

else 


^ 1 , 
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{ 

listptr->vtx = valid; 
listptr->vertnum = vertcount++; 
listptr->next = NULL; 
tail->next = listptr; 
tail = listptr; 

} 

} 

valid = GetVert (&x, &y, &z); 

} 

ply = NextFace (ply) ; 

} 

strcpy (filename, "/trap/"); 
strcat (filename, obj->name) ; 
fp = fopen (filename, "w" ) ; 
fprintf (fp, "R\n" ) ; 
fprintf (fp, "%d\n", vertcount); 
for (listptr = head; listptr;) { 

fprintf (fp, "%f %f %f\n", listptr->vtx->x, listpt r->vtx->y , 

listptr->vtx->z ) ; 

listptr = listpt r->next; 

} 

fclose (fp) ; 

strcpy (filename, "/tmp/."); 

strcat (filename, obj->name) ; 

fp = fopen (filename, "w") ; 

ply = FirstFace (ob j->obtype . rbody) ; 

while (ply) { 

GetAttribute (ply, &i, &j, &k, &colr, &flags) ; 

fprintf (fp, "p\n") ; 

fprintf (fp, "%d\n", coir); 

fprintf (fp, "%f %f %f\n", i, j, k) ; 

fprintf (fp, "%d\n", flags); 

• valid = GetVert (&x, &y, &z) ; 
while (valid) { 

for (listptr = head; listptr && listptr->vtx != valid;) 

listptr = listpt r->next; 
if (listptr) 

fprintf (fp, "v\n%d\n", listptr->vertnum) ; 
else 

fprintf (stderr, "ERROR: Invalid VERTEX pointer in SaveOb j \n" ) ; 


valid = GetVert (&x, &y 
ply = NextFace (ply) ; 

} 

fclose (fp) ; 

sprintf (tmpstr, "/bin/cat 

obj->name) ; 

system (tmpstr) ; 


, &z); 


/tmp/%s /tmp/ . %s >ob jlib/%s 
obj ->name, 


it 


f 

ob j - 


> n a m e 


t 
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sprintf (tmpstr, "/bin/rm /tmp/%s /tmp/.%s", obj->name, obj->name) ; 
system (tmpstr) ; 

for (listptr = head; listptr;) { 
head = head->next; 
free (listptr) ; 
listptr = head; 

} 

break; 

Ca fprint'f (stderr , "ERROR: Undefined object record found in 

database ! \n" ) ; 
break; 
default : 
break; 


} 

> 

/************************************************************************ 
LoadObj - Load an object from one or more files. 


Arguments : 
ob j — 


fKORT *) pointer to object in which information from file 
will J be placed* (The object should be 'undefined' before 
calling LoadObj . 

obname — (char *) name of object to load. 


Value Returned: (An error code may be returned in the future.) 






LoadObj (obj, obname) 
KOBJ *obj; 
char * obname; 


FILE *fp, *fopen(); . 

char filename [30] , newname[20], obtype, token, axis, 

float scale, dist, xf, yf, zf, ni, nj, nk; _ 

int i, angle, numvert, index, coir, xi, yi, zi, nag. 

Boolean firstpoly; 

KOBJ *subobj; 

OBJECT *rbody; 

VERTEX **vtx; 

CORNER *corn; 

XFORM *xfm; 

ATTRIBUTE *attr; 


strcpy (filename, "objlib/"); 
strcat (filename, obname); 
fp = fopen (filename, "r") ; 
fscanf (fp, "%c\n" , sobtype) ; 
switch (obtype) { 
case ' O' : 

while (feof (fp) == 0) { 
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fscanf (fp, "%c\n", stoken) ; 
switch (token) { 
case ' : 

fscanf (fp, "%s", newname) ; 
subobj = NewKObj (newname) ; 
fscanf (fp, "%f", Sscale) ; 
obj->scale = scale; 

AddKObj (obj, subobj); 
break; 
case 't' : 

xfm = NewXform (); 
fscanf (fp, "%c\n", &axis); 
switch (axis) { 
case ' x' : 
case ' y’ : 
case ' z' : 

fscanf (fp, "%f", &dist); 

SetXformTrans (xfm, axis, dist) ; 
break; 
case ' a' : 

( £ p ' %f "' Sxf - s y f ' 

SetXformTransMulti (xfm, xf, yf, z f) ; 
break; 
default : 
break; 

} 

AddXform (subobj, xfm) ; 
break; 
case ' r' : 

xfm = NewXform () ; 
fscanf (fp, " %c " , saxis); 
switch (axis) { 
case ’ x , : 
case ' y ' : 
case ' z' : 

fscanf (fp, »%d", sangle); 

SetXformRot (xfm, axis, angle); 
break; 
case ' a' : 

fscanf (fp, *’%d %d %d", &xi, &yi, & z i) ; 
SetXformRotMulti (xfm, xi, yi, z i) • 
break; 
default : 
break; 

} 

AddXform (subobj, xfm) ; 
break; 
default : 
break; 

} 

} 

fclose (fp); 
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subobj = obj->obtype . subobj; 
while (subobj) { 

LoadObj (subobj, subobj ->name ) ; 
subobj = subob j->nextkob j ; 


} 

break; 
case 'R' : 

fscanf (fp, "%d", snumvert) ; 
if ( (vtx = (VERTEX **) malloc 


(numvert*sizeof (VERTEX 


*) ) ) 


fprintf (stderr, "malloc failed in LoadOb j\n" ) ; 

} . , f 

for (i=0; i<numvert; x++) t 

vtx [i] — NewVertex () ; 

fscanf (fp, "%f %f %f'\ &xf, & Y f ' &zf); 
SetVertex (vtx[i], xf, yf, zf) ; 


} 

firstpoly = TRUE; 

rbody = NewRb (UniqueRbNum () ) ; 

Set KOb j_Rbody (obj, rbody); 
while (feof (fp) == 0) { 

fscanf (fp, "%c\n", Stoken) ; 
switch (token) { 
case ' p' : 

if (! firstpoly) { 

AddPolygon (rbody, attr); 


fscanf (fp, "%d" , &colr) ; 
fscanf (fp, "%f %f %f"/ &xf, &yf 
fscanf (fp, "%d" , &flag) ; 
attr = NewAttribute () ; 
SetAttribute (attr, xf, yf, zf, 
firstpoly = FALSE; 
break; 
case 'v' : 

fscanf (fp, "%d" , &index) ; 
corn = NewCorn () ; 

SetCorner (corn, vtx [ index]); 
AddCorner (rbody, corn) ; 
break; 
default : 
break; 


, &zf) 


coir, 


flag) ; 


} 

} 

if (! firstpoly) ( 

AddPolygon (rbody, attr) ; 

} 

fclose (fp) ; 
free (vtx) ; 
break; 
default : 

fclose (fp) ; 


== NULL) { 
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break; 


} 


AddKObj - Adds a sub object to an object. 

Ar9U pl?entKobj - (KOBJ *) object to which child object is being added. 

childKob j — (KOBJ ‘> child object which is being added to parent 
object . 

AddKObj (parentkobj, childkobj) 

KOBJ *parentkobj, ’■'childkobj; 

{ 

KOBJ *tmpl, *tmp2; 

if (parentkobj && childkobj) ( . , 

if (parentkobj->obtype . subobj NULL) i 

parentkobj->type = 'o'; , . 

parentkobj ->obtype . subobj = childkobj, 

/* childkob j->parent = parentkobj; / 

} 

else 

if (parentkobj ->type == ' o' ) { 

for (tmpl = parentkobj->obtype.subobj; tmpl;) { 

tmp2 = tmpl; 

tmpl = tmpl->nextkobj; 

tmp2->nextkobj = childkobj; 

/* childkob j->parent = parentkobj; / 

} 

} 

} 

’.....................************♦******:***************************** 

NewKObj - Creates a new and undefined object. 

Arguments : 

name — (char *) 

Value Returned: 

KOBJ *NewKObj (name) 
char *name; 

{ 
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KOBJ *tmp; 


if ((tmp - (KOBJ *) malloc (sizeof (KOBJ))) == NULL) 
else rlntf (stderr ' " kind b-c: malloc failed in NewKObj\n") ; 

I 

strcpy (tmp->name, name) ; 

/* tmp->modified = FALSE; */ 

tmp->type = 'u'; 
tmp->scale = 1.0; 
tmp->xform = NULL; 
tmp->nextkob j = NULL; 

/* tmp ->pa rent = NULL; */ 

return tmp; 


/ *rr^’*rr;t***************************************************»*«*** 

SetKOb^SubObj - Sets a object such that it is made up ot the given 

subobject . Use of this routine will destroy the 
previous definition of the object. 

(This routine may be deleted as it was written before "AddKObi" was 
did^ot!) AddKOhj has the effect that was needed while this routine 


Arguments : 

mainobj -- 
subobj — 


(KOBJ *) object which will contain subobject. 
(KOBJ *) object which will be the only subobject 
the indicated main object. 


of 


r:;;r*rr"****?****'***‘************«***************-*....... 

SetKOb j_SubOb j (mainobj, subobj) 

KOBJ *mainobj, *subobj; 

if (mainobj && subobj) .{ 
mainobj->type = 'o'; 
mainobj->obtype . subobj = subobj; 

'* subobj ->parent = mainobj; */ 

} 


****** 


/ *qi^nK-*orr********************************************************** 

SetKOb j_Rbody - Sets a object such that is is made up of the given 

rigid body. Use of this routine will destroy the 
previous definition of the object. 


If the definition of an object is viewed as a tree, 
then this routine is used to create a leaf node as a 
rigid body should be the termination point of any 
object's sub-components. 
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ArgU :finobj - (KOBJ .) object which will be made up of a single rigid 

rbody - «&& *» rigid body which will be the sole component of 
the main object. 

SetKOb j_Rbody (mainobj, rbody) 

KOBJ *mainobj; 

OBJECT * rbody; 

if (mainobj) { 

mainob j ->t ype - ' r' ; 

mainobj ->obtype . rbody - rbody, 

} 

SetScale - Sets, the scale factor of “ °^ect ^ Qf its sub - 

vertices which make up a ,-his scaling factor, 

objects should be multiplied by this scaling 

Arguments: . ___ no 

'Afloat) scaling factor ( 1.0 makes it the same site). 

SetScale (obj, sval) 

KOBJ' *obj; 
float sval; 


obj->scale = sval; 


RenameKOb j - Renames an existing object. 

Argument s ^ (KQBJ *) object to rename. 

name — (char *) new name of the object. 

RenameKOb j (obj, name) 

KOBJ *obj; 
char *name; 

strcpy (ob j->name, name) , 

/**************************************?******k**3330ciated*with an object 
NewXform - Creates a new transformatron to be assocrated 
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Value Returned: 




(XFORM *) pointer to the new transform. 
**************************************** 




XFORM *NewXform () 

{ 

XFORM *tmp; 


if ( (tmp = (XFORM *) malloc 
fprintf (stderr, "kindb.c: 
else 

tmp->next = NULL; 
return tmp; 


(sizeof (XFORM))) == NULL) 

malloc failed in NewXform\n" ) ; 


} 

/ 


**************** 
SetXformRot - 


**************************************** 
Sets a transform to be a rotation about 


a single axis. 


Arguments : 
xfrm -- 
axis — 
angle — 


(XFORM *) pointer to transform to set. 

(char) axis about which to rotate. 

(short) amount to rotate (in tenths of a degree) . 






SetXformRot (xfrm, axis, angle) 
XFORM *xfrm; 
char axis; 
short angle; 

{ 

xfrm->type = 'r'; 
xfrm->axis = axis; 
xfrm->amt .angle = angle; 


} 


/********************************************** 
SetXformRotMulti - Sets a transform to be a 


************************** 
rotation about all axes. 


Arguments : 
xfrm — 
x, y, z 


(XFORM *) pointer to transform to set. 

(short) amounts to rotate about each axis 


(in tenths of a 


degree) . 






SetXformRotMulti (xfrm, x, y, z) 
XFORM *xfrm; 
short x, y, z; 

{ 

xfrm->type = ' r' ; 
xfrm->axis = ' a' ; 
xfrm->amt . rot . x = x; 
xfrm->amt . rot .y = y; 
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xf rm->amt . rot . z = z ; 


> 

/************************ 
SetXformTrans - Sets 

axis . 


******************** 
a transform to be 


★ ★ 
a 


************ 

translation 


************** 
about a single 


Arguments : 
xfrm — 
axis — 
dist — 


(XFORM *) pointer to transform to set. 
(char) axis along which to translate, 
(float) distance to translate. 








SetXformTrans (xfrm, axis, dist) 
XFORM *xfrm; 
char axis; 
float dist; 


xfrm->type = ' t '; 
xfrm->axis = axis; 
xf rm->anvt . dist = dist; 


} 


/****************************** 
SetXformTransMulti - Sets 

axes . 


********************* 
a transform to be a 


* 


******************** 
translation about all 


Arguments : 
xfrm — 
x, y, z 


(XFORM *) pointer to transform to set. 

— (float) distance to translate along each axis 








SetXformTransMulti (xfrm, x, y, z) 
XFORM *xfrm; 
float x, y, z; 


{ 

xfrm->type = 't'; 
xfrm->axis — ' a' ; 
xfrm->amt .trans .x = x; 
xfrm->amt . trans .y = y; 
xfrm->amt .trans . z = z; 

} 


/ 


************* 
AddXform - 


************************* 
Adds a transformation to 
object or any sub-object 
transformation . 


********************************** 
an object. All vertices in the 
will be affected by the 


Arguments : 
ob j — 
xfrm -- 


(KOBJ *) 
(XFORM 


object to which transformation is to be added 
*) pointer to transform to add to the object. 
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AddXform (obj, xfrm) 
KOBJ *ob j ; 

XFORM *xfrm; 


{ 

XFORM *ptr; 


if (ob j->xform == NULL) 
ob j->xform = xfrm; 
else 
{ 

for (ptr=ob j->xf orm; ptr->next; 
ptr->next = xfrm; 

} 

} 


ptr=ptr->next) ; 
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Appendix A. 9 Storing Rigid Bodies 


^************* 
Filename: lp.c 




Written by: Allan Rideout 

Modified by: Timothy A. Thompson 

Purpose: This module implements the database which, is responsible for 

storing rigid bodies. For more information on how these rigid 
bodies are stored, see the file "obj.h" . 


Functions Provided: 




/* lp.c 01.11.89*/ 


# include "defs.h" 

# include "dbdefs.h" 


FACE *fce; 

BEDGE *bedg; 

EDGE *edg; 

VERTEX *vtx; 

IEDGE *iedg; 

CORNER *corn; 

OBJECT * ob j ; 

ATTRIBUTE *attr; 

/***************************************************** 

loop poly - Traverses the winged edge database and creates a list of 
~ corners (pointers to vertices) contained in the. polygon 

pointed to by the global variable "fee". The list is 
accessed by the "rcorn" field of the structure pointed to by 


the global variable "obj". 






loop_poly () 

{ 

/*loop polygon specified by fee 
and place corners in a clockwise sequence*/ 


EDGE *edgl; 
bedg = fce->bedg; 
edg = bedg->edg; 
bedg = bedg->nextbedg; 

/*first vtx is that found an both current and next edg.*/ 


edgl = bedg->edg; 

if ( (edg->vtxl == edgl->vtxl) | | 
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(edg->vtxl == edgl->vtx2) ) vtx = edg->vtxl; 
else vtx = edg->vtx2; 

if ((corn = (CORNER *) malloc (scorn)) == NULL) { 

fprintf (stderr, "lp: malloc failed in loop_poly\n" ) ; 

corn->nextcorn = NULL; 
corn->vtx = vtx; 

add_corner ( ) ; 

/*find the sequence: next vtx is the different vtx found on 
the next edg*/ 

/* bedg = bedg->nextbedg; */ 
while (bedg) 

{ 

edg = bedg->edg; 

if (vtx == edg->vtxl) vtx = edg->vtx2; 
else vtx = edg->vtxl; 

if ( (corn = (CORNER *) malloc (scorn) ) == NULL) { 

fprintf (stderr, "lp: malloc failed in loop_poly\n" ) ; 

corn->nextcorn = NULL; 
corn->vtx = vtx; 

add_corner ( ) ; 

bedg = bedg->nextbedg; 

} 


/********************* 
add_corner - Adds 
vertices 

which 

object 


******************************************** 
the corner pointed to by "corn" to the 

will define the new polygon being built 


★ ★ * * * i 

list 

for 


pointed to by "obj". 




add_corner ( ) 
{ 


/^current corner (corn) becomes the new root of the current 
polygon*/ 


CORNER *q; 


q=ob j->rcorn; 
ob j->rcorn=corn; 
corn->nextcorn=q; 

} 


of 

the 

/ 
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/*************** 
unjoin - (not 


currently used) 


* * 


* * * * 


unjoin() ************* 

{ 


/ 


/*last corner removed from current polygon to become a 
free point*/ 

CORNER *q; 


q=ob j->rcorn; 

°b j->rcorn=q->nextcorn; 
free (q) ; 

} 

** ************************************^^^ 
the temporary linked list pointed to by the 
field of the structure pointed to by the 

"obj" . 

****************************************** 

abandon polygon () 

{ 

Points in current polygon are returned to previous 
status*/ 


/**************************** 
abandon_polygon - Destroys 

"rcorn " 

global 

variable 






CORNER *q; 

for (corn=ob j->rcorn; corn; ) 


vtx=corn->vtx; 

q=corn; 

corn=corn->nextcorn; 
free (q) ; 

obj->rcorn = NULL; 


add_polygon - 


Build a database representation o 
corners pointed to by the "rcorn" 
pointed to by the global variable 


*********************** 
f a polygon out of the 
field of the structure 
"obj " . 


add_polygon () 

{ 






/*current polygon (point list with root, obj->rcorn) is 
inserted into object data structure*/ 


FACE *q; 
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int ncorn=0; 

for (corn=ob j->rcorn; corn; ) 
ncorn++; 

corn=corn->nextcorn; 

if (ncorn<3) 

{ 

printf("\n%d corners, \n\n\nno polygon. ", ncorn) ; 
return (0); 

} 

q=ob j->fce; 

if ( (fce= (FACE*) malloc (sfce) ) == NULL) { 
j f P r i n tf (stderr, "lp: malloc failed in add_polygon\n") ; 

fce->nextfce = NULL; 
fce->bedg = NULL; 
fce->attr = attr; 
add_bedge ( ) ; 
fce->bedg=bedg; 
fce->nextfce=q; 
ob j->fce=fce; 

abandon polygon () ; 

} 

/********************** ;(rA ^^ AAAA 
add_bedge - Adds a bounding 

********************* ijt]t>tjtj(t]tl]t 
add_bedge ( ) 

{ 

BEDGE *q; 
bedg=NULL; 

for (corn=ob j ->rcorn; corn; ) 

add_edge ( ) ; 
q=bedg; 

if ( (bedg= (BEDGE*) malloc (sbedg) ) == NULL) { 
j (stderr, "lp: malloc failed in add bedge\n"); 

bedg->edg=edg; 
bedg->nextbedg=q; 
corn=corn->nextcorn; 

} 


edge pointed to by "bedg" to the 


add_edge - Adds the edge 


*********************** 
pointed to by "edg" to 


************** 
the database. 




********* 
database . 

******** J 
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add_edge ( ) 

{ 

VERTEX *vtxl; 

CORNER *cornl; 

EDGE *edgl ; 

IEDGE *iedgl; 

vtx=corn->vtx; 
cornl=corn->nextcorn; 
if (cornl==NULL) cornl=ob j->rcorn; 
vtxl=cornl->vtx; 


/*search for vtx,vtxl edge*/ 
for (iedg=vtx->iedg; iedg;) 

edg=iedg->edg; 

for (iedgl=vtxl->iedg; iedgl; ) 


edgl=iedgl->edg; 

if ( (edg==edgl) && (edg->fce2==NULL) ) 

add_iedge () ; 
vtx=vtxl ; 
add_iedge ( ) ; 
edg->fce2=fce; 
return (1) ; 

} 

iedgl=iedgl->nextiedg; 

iedg=iedg->nextiedg; 

/*must add a new edge*/ 


if ( (edg— (EDGE*) malloc (sedg) ) == NULL) { 
j f P rintf (stderr, "lp: malloc failed in add_edge\n") ; 

edg->fcel=fce; 
edg->fce2=NULL; 
edg->vtxl=vtx; 
edg->vtx2=vtxl ; 
add_iedge ( ) ; 
vtx=vtxl; 
add iedge(); 

} 


/ *ldried2r!**iHH**r***r*‘**?****************************************** 

9 (Therp°i^ he inci< ^ ent ed ^ e list when a new edge is added. 

(There is currenty a bug which causes each incident edge tc 


appear on the lists twice.) 
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************************************************************************/ 
add_iedge ( ) 

{ 

IEDGE *q, *p; 

if ( (iedg= (IEDGE*) malloc (siedg) ) == NULL) { 

fprintf (stderr, "lp: malloc failed in add_iedge\n") ; 

} 

iedg->edg=edg; 
iedg->nextiedg = NULL; 

if (vtx->iedg==NULL) 

{ 

vtx->iedg=iedg; 
return ( 1 ) ; 

} 

for (q=vtx->iedg; q; ) 

{ 

p=q; 

q=q->nextiedg; 

} 

p->nextiedg=iedg; 


/★★★★★**************^**************************************************** 
remove_face - (Currently unused and untested.) 

************************★***********************************************/ 
remove_f ace ( ) 

{ 

/*fce is removed from object data structure*/ 

FACE *q; 
remove_bedge ( ) ; 
q=fce; 

fce=q->nextfce; 
free (q) ; 

} 

/★***★*★*★****★★★*★**★*★******★★★★★*★★★★★*★★★★★**★★★★****★**★★***★★★*★★** 
remove_bedge - (Currently unused and untested.) 

a***********************************************************************/ 

remove_bedge ( ) 

{ 

BEDGE *q; 

for (bedg=fce->bedg;bedg; ) 

{ 

edg=bedg->edg; 

if (edg->fcel==fce) edg->fcel=NULL; 
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else if (edg->fce2==fce) edg->fce2=NULL; 


if (edg >fcel — edg->fce2) /* edg is now empty*/ 

vtx=edg->vtxl; remove_iedge () ; 
vtx=edg->vtx2 ; remove iedge(); 

} 

q=bedg; 

bedg=q->nextbedg; 
free (q) ; 

} 






remove_iedge - 


(Currently unused and untested.) 


remove_iedge ( ) 

{ 

IEDGE *p, *q; 


q=vtx->iedg; 
if (q->edg==edg) 

{ 

vtx->iedg=q->nextiedg; 

free (q) ; 
return ( 1 ) ; 

} 

while (q->edg ! =edg) 

{ 

p=q; 

q=q->nextiedg; 

} 

p->nextiedg=q->nextiedg; 
free (q) ; 

} 
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